Fix bug in last commit with param.file.loc

smjenness · smjenness · commit 257bbf3f289d · 2019-10-09T15:45:28.000-04:00
diff --git a/R/sbatch_master.R b/R/sbatch_master.R
@@ -211,7 +211,7 @@ sbatch_master <- function(vars,
     if (append == FALSE) {
       write.csv(out, file = param.file.loc, row.names = FALSE)
     } else {
-      prior <- read.csv(param.file)
+      prior <- read.csv(param.file.loc)
       out <- rbind(prior, out)
       write.csv(out, file = param.file.loc, row.names = FALSE)
     }

Original file line number	Diff line number	Diff line change
`@@ -211,7 +211,7 @@ sbatch_master <- function(vars,`
`211`	`211`	`if (append == FALSE) {`
`212`	`212`	`write.csv(out, file = param.file.loc, row.names = FALSE)`
`213`	`213`	`} else {`
`214`		`- prior <- read.csv(param.file)`
	`214`	`+ prior <- read.csv(param.file.loc)`
`215`	`215`	`out <- rbind(prior, out)`
`216`	`216`	`write.csv(out, file = param.file.loc, row.names = FALSE)`
`217`	`217`	`}`