Fix write seeds (#184)

* no longer write out row names with forecast_random_seeds.csv * also in validate function
ncsu-landscape-dynamics · Oct 9, 2023 · 9aabb09 · 9aabb09
1 parent bfb05a8
commit 9aabb09
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/pops_multirun.R b/R/pops_multirun.R
@@ -204,7 +204,8 @@ pops_multirun <- function(infected_file,
 
   if (config$multiple_random_seeds && is.null(config$file_random_seeds) &&
       dir.exists(config$output_folder_path)) {
-    write.csv(config$random_seeds, paste0(config$output_folder_path, "forecast_random_seeds.csv"))
+    write.csv(config$random_seeds, paste0(config$output_folder_path, "forecast_random_seeds.csv"),
+              row.names = FALSE)
   }
 
   config$crs <- terra::crs(config$host)

diff --git a/R/validate.R b/R/validate.R
@@ -223,7 +223,8 @@ validate <- function(infected_years_file,
 
   if (config$multiple_random_seeds && is.null(config$file_random_seeds) &&
       dir.exists(config$output_folder_path)) {
-    write.csv(config$random_seeds, paste0(config$output_folder_path, "validation_random_seeds.csv"))
+    write.csv(config$random_seeds, paste0(config$output_folder_path, "validation_random_seeds.csv"),
+              row.names = FALSE)
 
   }