Fix helper for converting date to gts format.

r-world-devs · Mar 15, 2024 · cf0d8bf · cf0d8bf
1 parent ba5ca3c
commit cf0d8bf
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -7,10 +7,9 @@
 date_to_gts <- function(date) {
   date_format <- as.Date(date)
   posixt_format <- as.POSIXct(date)
-
-  if (stringr::str_length(date) == 10 && !is.null(date_format)) {
+  if (date_format == posixt_format) {
     paste0(date, "T00:00:00Z")
-  } else if (stringr::str_length(date) == 19 && !is.null(posixt_format)) {
+  } else {
     stringr::str_replace(
       date,
       "^(.{10})(.*)$",