add format option for dates without time

SantanderMetGroup · Mar 29, 2022 · e2af5e2 · e2af5e2
1 parent ee5018d
commit e2af5e2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/fillGrid.R b/R/fillGrid.R
@@ -192,6 +192,7 @@ setGridDates.asPOSIXlt <- function(grid, tz = "") {
   dateclass <- class(ds)
   ref <- ds[1]
   format <- "%Y-%m-%d %H:%M:%S"
+  if(length(strsplit(ref, "-")[[1]]) == 3) format <- "%Y-%m-%d"
 
   if(any(grepl("POSIXlt", dateclass))) {
     ## Retrieve tz from original data