specify origin when coercing numeric to date

geomarker-io · Feb 4, 2024 · b5aef51 · b5aef51
1 parent 9b8c299
commit b5aef51
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/merra.R b/R/merra.R
@@ -33,7 +33,7 @@ get_merra_data <- function(x, dates) {
   d_merra <-
     dates |>
     unlist() |>
-    as.Date() |>
+    as.Date(origin = "1970-01-01") |>
     unique() |>
     format("%Y") |>
     unique() |>

diff --git a/R/narr.R b/R/narr.R
@@ -15,7 +15,7 @@ get_narr_data <- function(x, dates, narr_var = c("air.2m", "hpbl", "acpcp", "rhu
   narr_raster <-
     dates |>
     unlist() |>
-    as.Date() |>
+    as.Date(origin = "1970-01-01") |>
     unique() |>
     format("%Y") |>
     unique() |>