Remove lubridate

DESCRIPTION

@@ -25,7 +25,6 @@ Imports:
     fs (>= 1.6.4),
     glue (>= 1.8.0),
     lifecycle (>= 1.0.0),
-    lubridate (>= 1.9.3),
     purrr (>= 1.0.2),
     readr (>= 2.0.0),
     rlang (>= 1.1.4),

R/builders.R

@@ -52,7 +52,7 @@ build_stratum <- function(stratum_name, project_path, order = 1) {
     if (!stratum_name %in% current_strata) {
       cat(
         paste0(
-          stratum_name, " = { created = ", lubridate::today(),
+          stratum_name, " = { created = ", Sys.Date(),
           ", order = ", order,
           " }\n"
         ),
@@ -136,7 +136,7 @@ build_lamina <- function(lamina_name, stratum_path, order = 1, skip_if_fail = FA
   if (!lamina_name %in% current_laminae) {
     cat(
       paste0(
-        lamina_name, " = { created = ", lubridate::today(),
+        lamina_name, " = { created = ", Sys.Date(),
         ", order = ", order,
         ", skip_if_fail = ", stringr::str_to_lower(skip_if_fail),
         " }\n"

R/execution_plan.R

@@ -1,7 +1,7 @@
 # given a dataframe of an execution_plan, source each script in the order
 # specified in the plan, with or without logging as specified by the user
 run_execution_plan <- function(execution_plan, silent = FALSE) {
-  strata_start <- lubridate::now()
+  strata_start <- Sys.time()
 
   initial_stratum <- execution_plan[1, ]$stratum
   initial_lamina <- execution_plan[1, ]$lamina
@@ -41,7 +41,7 @@ run_execution_plan <- function(execution_plan, silent = FALSE) {
       }
     }
 
-    strata_end <- lubridate::now()
+    strata_end <- Sys.time()
     total_time <- log_total_time(strata_start, strata_end)
     log_message(
       paste("Strata finished - duration:", total_time, "seconds")

R/logging.R

@@ -20,7 +20,7 @@ log_message <- function(message, level = "INFO", out_or_err = "OUT") {
   # check for stdout or stderr
   checkmate::assert_choice(out_or_err, c("OUT", "ERR"))
   timestamp <-
-    lubridate::now() |>
+    Sys.time() |>
     as.character() |>
     stringr::str_trunc(width = 24, ellipsis = "")
 

R/manage_tomls.R

@@ -7,7 +7,7 @@ initial_stratum_toml <- function(path, name, order) {
   readr::write_lines(
     paste0(
       "[strata]\n",
-      name, " = { created = ", lubridate::today(),
+      name, " = { created = ", Sys.Date(),
       ", order = ", order,
       " }"
     ),

R/read_write_toml.R

@@ -118,7 +118,7 @@ read_toml <- function(toml_path) {
 
       var_list <-
         tibble::lst(
-          created = lubridate::as_date(created),
+          created = as.Date(created),
           order = as.integer(order)
         )
 

R/user_toml_interaction.R

@@ -82,7 +82,7 @@ view_toml <- function(toml_path) {
 #' original_toml
 #' new_toml <- original_toml |>
 #'   dplyr::mutate(
-#'     created = lubridate::ymd("2021-01-01")
+#'     created = as.Date("2021-01-01")
 #'   )
 #' new_toml_path <- edit_toml(original_toml_path, new_toml)
 #' view_toml(new_toml_path)

tests/testthat/test-execution_plan.R

@@ -36,7 +36,7 @@ test_that("execution plan is as expected", {
       lamina = c("first_lamina", "second_lamina"),
       order = c(1, 2),
       skip_if_fail = c(FALSE, FALSE),
-      created = lubridate::today(),
+      created = Sys.Date(),
       script = c("my_code1", "my_code2"),
       path = c(first_lamina_code, second_lamina_code)
     )

tests/testthat/test-logging.R

@@ -10,7 +10,7 @@ test_that("log_message and log_error to stderr", {
 
 
 test_that("log_total_time works", {
-  begin <- lubridate::now()
+  begin <- Sys.time()
   end <- begin + 100
   expect_equal(log_total_time(begin, end), 100)
 })

tests/testthat/test-manage_tomls.R

@@ -31,7 +31,7 @@ test_that("fixes order", {
       name = "test",
       order = c(1, 2, 3, 4, 5),
       skip_if_fail = c("FALSE", "FALSE", "FALSE", "FALSE", "FALSE"),
-      created = lubridate::today()
+      created = Sys.Date()
     )
 
   expect_equal(
@@ -43,7 +43,7 @@ test_that("fixes order", {
     type = "strata",
     name = "test",
     order = c(1, 2, 3, 4, 4),
-    created = lubridate::today()
+    created = Sys.Date()
   )
 
   expect_equal(

tests/testthat/test-user_toml_interaction.R

@@ -115,7 +115,7 @@ test_that("check_toml_dataframe manages order", {
       type = "strata",
       name = "test",
       order = c(1, 2, 3, 4, 4),
-      created = lubridate::today()
+      created = Sys.Date()
     )
 
   expect_equal(
@@ -131,7 +131,7 @@ test_that("check_toml_dataframe drops bad columns", {
       name = "test",
       bad_column0 = "test",
       order = c(1, 2, 3, 4, 5),
-      created = lubridate::today(),
+      created = Sys.Date(),
       bad_column1 = "test",
       bad_column2 = "test",
       bad_column3 = "test"
@@ -142,7 +142,7 @@ test_that("check_toml_dataframe drops bad columns", {
       type = "strata",
       name = "test",
       order = c(1, 2, 3, 4, 5),
-      created = lubridate::today()
+      created = Sys.Date()
     )
 
   expect_equal(
@@ -168,7 +168,7 @@ test_that("check_toml_dataframe works with strata", {
       type = "strata",
       name = "test",
       order = c(1, 2, 3, 4, 5),
-      created = lubridate::today()
+      created = Sys.Date()
     )
 
   expected_toml_snapshot <- toml_snapshot
@@ -186,7 +186,7 @@ test_that("check_toml_dataframe works with laminae", {
       name = "test",
       order = c(1, 2, 3, 4, 5),
       skip_if_fail = FALSE,
-      created = lubridate::today()
+      created = Sys.Date()
     )
 
   expected_toml_snapshot <- toml_snapshot
@@ -203,7 +203,7 @@ test_that("check_toml_dataframe returns a dataframe", {
       type = "strata",
       name = "test",
       order = c(1, 2, 3, 4, 5),
-      created = lubridate::today()
+      created = Sys.Date()
     )
 
   expect_equal(