Fixed save file name argument in validation saving

EcoGRAPH · Aug 13, 2019 · 75dcc6c · 75dcc6c
1 parent 051ae00
commit 75dcc6c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/model_validation.R b/R/model_validation.R
@@ -322,7 +322,7 @@ view_overall_validations <- function(validations){
 save_overall_validations <- function(validations, save_file){
   lapply(validations, `[[`, "validation_overall") %>%
     bind_rows(.id = "model") %>%
-    write_csv("save_file")
+    write_csv(save_file)
 }
 
 #' Save geographic grouping model validation statistics
@@ -342,5 +342,5 @@ save_overall_validations <- function(validations, save_file){
 save_geog_validations <- function(validations, save_file){
   lapply(validations, `[[`, "validation_grouping") %>%
     bind_rows(.id = "model") %>%
-    write_csv("save_file")
+    write_csv(save_file)
 }