373 slices_restore will restore Dates and POSIXT classes

R/teal_slice-store.R

@@ -9,6 +9,8 @@
 #' @param file (`character(1)`) The file path where `teal_slices` object will be saved.
 #'  The file extension should be `".json"`.
 #'
+#' @details `Date` and `POSIXt` classes are stored in `"ISO8601"` format and are converted to `UTC` timezone.
+#'
 #' @return `NULL`, invisibly.
 #'
 #' @examples
@@ -51,6 +53,24 @@ slices_restore <- function(file) {
   checkmate::assert_file_exists(file, access = "r", extension = "json")
 
   tss_json <- jsonlite::fromJSON(file, simplifyDataFrame = FALSE)
+  tss_json$slices <-
+    lapply(tss_json$slices, function(slice) {
+      for (field in c("selected", "choices")) {
+        if (!is.null(slice[[field]])) {
+          slice[[field]] <-
+            if (all(grepl("[0-9]{4}-[0-9]{2}-[0-9]{2}", slice[[field]]))) {
+              if (all(grepl("T[0-9]{2}:[0-9]{2}:[0-9]{2}", slice[[field]]))) {
+                as.POSIXct(gsub("T|Z", " ", slice[[field]]), tz = "UTC")
+              } else {
+                as.Date(slice[[field]])
+              }
+            } else {
+              slice[[field]]
+            }
+        }
+      }
+      slice
+    })
 
   tss_elements <- lapply(tss_json$slices, as.teal_slice)
 

R/teal_slice.R

@@ -276,7 +276,7 @@ to_json <- function(x) {
     }
   }
 
-  jsonlite::toJSON(no_unbox(x), pretty = TRUE, auto_unbox = TRUE, digits = 16, null = "null")
+  jsonlite::toJSON(no_unbox(x), pretty = TRUE, auto_unbox = TRUE, digits = 16, null = "null", UTC = TRUE, POSIXt = "ISO8601")
 }
 
 #' Justify Colons in `JSON` String

tests/testthat/test-teal_slice-store.R

@@ -0,0 +1,109 @@
+test_that("teal_slice store/restore supports saving `POSIXct` timestamps in selected", {
+  slices_path <- withr::local_file("slices.json")
+
+  time_stamps <- Sys.time() + c(-10 * 60 * 60 * 24, -30, 0)
+
+  # ISO8601 does not keep milliseconds
+  time_stamps <- as.POSIXct(
+    ceiling(as.double(time_stamps)),
+    tz = "UTC"
+  )
+
+  tss <- teal_slices(
+    teal_slice(
+      dataname = "ADSL",
+      varname = "EOSDTM",
+      selected = time_stamps,
+      fixed = TRUE
+    )
+  )
+
+  # Store the teal_slices object to a file
+  slices_store(tss, slices_path)
+  tss_restored <- slices_restore(slices_path)
+
+  tss_restored_list <- shiny::isolate(shiny::reactiveValuesToList(tss_restored[[1]]))
+  expect_s3_class(tss_restored_list$selected, "POSIXct")
+
+  expect_identical_slice(tss[[1]], tss_restored[[1]])
+})
+
+test_that("teal_slice store/restore supports saving `Date` dates in selected", {
+  slices_path <- withr::local_file("slices.json")
+
+  time_stamps <- Sys.Date() + c(-10 * 600, -30, 0)
+
+  tss <- teal_slices(
+    teal_slice(
+      dataname = "ADSL",
+      varname = "EOSDT",
+      selected = time_stamps,
+      fixed = TRUE
+    )
+  )
+
+  # Store the teal_slices object to a file
+  slices_store(tss, slices_path)
+  tss_restored <- slices_restore(slices_path)
+
+  tss_restored_list <- shiny::isolate(shiny::reactiveValuesToList(tss_restored[[1]]))
+  expect_s3_class(tss_restored_list$selected, "Date")
+
+  expect_identical_slice(tss[[1]], tss_restored[[1]])
+})
+
+test_that("teal_slice store/restore supports saving `POSIXct` timestamps in choices", {
+  slices_path <- withr::local_file("slices.json")
+
+  time_stamps <- Sys.time() + c(-10 * 60 * 60 * 24, -30, 0)
+
+  # ISO8601 does not keep milliseconds
+  time_stamps <- as.POSIXct(
+    ceiling(as.double(time_stamps)),
+    tz = "UTC"
+  )
+
+  tss <- teal_slices(
+    teal_slice(
+      dataname = "ADSL",
+      varname = "EOSDTM",
+      selected = sample(time_stamps, 2),
+      choices = time_stamps,
+      fixed = TRUE
+    )
+  )
+
+  # Store the teal_slices object to a file
+  slices_store(tss, slices_path)
+  tss_restored <- slices_restore(slices_path)
+
+  tss_restored_list <- shiny::isolate(shiny::reactiveValuesToList(tss_restored[[1]]))
+  expect_s3_class(tss_restored_list$choices, "POSIXct")
+
+  expect_identical_slice(tss[[1]], tss_restored[[1]])
+})
+
+test_that("teal_slice store/restore supports saving `Date` timestamps in choices", {
+  slices_path <- withr::local_file("slices.json")
+
+  time_stamps <- Sys.Date() + c(-10 * 600, -30, 0)
+
+  tss <- teal_slices(
+    teal_slice(
+      dataname = "ADSL",
+      varname = "EOSDT",
+      selected = sample(time_stamps, 2),
+      choices = time_stamps,
+      fixed = TRUE
+    )
+  )
+
+  # Store the teal_slices object to a file
+  slices_store(tss, slices_path)
+  tss_restored <- slices_restore(slices_path)
+
+  tss_restored_list <- shiny::isolate(shiny::reactiveValuesToList(tss_restored[[1]]))
+  expect_s3_class(tss_restored_list$choices, "Date")
+
+  expect_identical_slice(tss[[1]], tss_restored[[1]])
+})