use file.path to placate lintr

epiforecasts · Mar 1, 2024 · 8d0f69c · 8d0f69c
1 parent 37ccab5
commit 8d0f69c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/epinow-internal.R b/R/epinow-internal.R
@@ -29,8 +29,8 @@ save_input <- function(reported_cases, target_folder) {
   if (!is.null(target_folder)) {
     latest_date <- reported_cases[confirm > 0][date == max(date)]$date
 
-    saveRDS(latest_date, paste0(target_folder, "/latest_date.rds"))
-    saveRDS(reported_cases, paste0(target_folder, "/reported_cases.rds"))
+    saveRDS(latest_date, file.path(target_folder, "latest_date.rds"))
+    saveRDS(reported_cases, file.path(target_folder, "reported_cases.rds"))
   }
   return(invisible(NULL))
 }