From 424bbd38f4ad6a897956a0afa09c0ab098a3126c Mon Sep 17 00:00:00 2001 From: agostof Date: Fri, 5 Jan 2024 16:39:49 +0000 Subject: [PATCH] ts computation with non-piped baseR equivalent --- R/all_new_functions.R | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/R/all_new_functions.R b/R/all_new_functions.R index 14f04de..888ccf9 100644 --- a/R/all_new_functions.R +++ b/R/all_new_functions.R @@ -980,8 +980,7 @@ field_label <- function(dat, } # File name and timestamp for updated fieldbook - ts <- Sys.time() |> format(format = "%H_%M_%S") |> - paste0("Updated_Fieldbook_", ... = _, ".csv") + ts <- paste0("Updated_Fieldbook_", format(Sys.time(), format = "%H_%M_%S"), ".csv") utils::write.csv(updat, file = paste0(filename, ts), row.names = FALSE) @@ -1231,8 +1230,7 @@ gp_label <- function(dat, } # File name and timestamp for updated fieldbook - ts <- Sys.time() |> format(format = "%H_%M_%S") |> - paste0("Updated_Fieldbook_", ... = _, ".csv") + ts <- paste0("Updated_Fieldbook_", format(Sys.time(), format = "%H_%M_%S"), ".csv") utils::write.csv(updat, file = paste0(filename, ts), row.names = FALSE)