From 3931cbcbd7c8d0c7b2139c03204ec909b629fa47 Mon Sep 17 00:00:00 2001 From: jamesaazam Date: Mon, 13 Nov 2023 21:07:56 +0000 Subject: [PATCH] Linting: contruct paths with file.path() instead of paste0. --- R/epinow.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/epinow.R b/R/epinow.R index 24cbb9f63..7da0b4398 100644 --- a/R/epinow.R +++ b/R/epinow.R @@ -283,15 +283,15 @@ epinow <- function(reported_cases, } if (!is.null(target_folder) && !is.null(out$error)) { - saveRDS(out$error, paste0(target_folder, "/error.rds")) - saveRDS(out$trace, paste0(target_folder, "/trace.rds")) + saveRDS(out$error, file.path(target_folder, "error.rds")) + saveRDS(out$trace, file.path(target_folder, "trace.rds")) } # log timing if specified if (output["timing"]) { out$timing <- round(as.numeric(end_time - start_time), 1) if (!is.null(target_folder)) { - saveRDS(out$timing, paste0(target_folder, "/runtime.rds")) + saveRDS(out$timing, file.path(target_folder, "runtime.rds")) } }