Fix bug in last commit with param.file.loc

EpiModel · Oct 9, 2019 · 257bbf3 · 257bbf3
1 parent 283ddbe
commit 257bbf3
Showing 1 changed file with 1 addition and 1 deletion.
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)
     }