Coerce dates to doubles

Fixes #72
ropensci · Jan 5, 2024 · 1751eea · 1751eea
1 parent f3de8eb
commit 1751eea
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/write_xlsx.R b/R/write_xlsx.R
@@ -54,6 +54,10 @@ normalize_df <- function(df){
   for(i in which(vapply(df, inherits, logical(1), c("factor", "hms")))){
     df[[i]] <- as.character(df[[i]])
   }
+  for(i in which(vapply(df, function(x){is.integer(x) && inherits(x, "POSIXct")}, logical(1)))){
+    df[[i]] <- as.double(df[[i]])
+    class(df[[i]]) <- class(Sys.time())
+  }
   for(i in which(vapply(df, inherits, logical(1), "POSIXlt"))){
     df[[i]] <- as.POSIXct(df[[i]])
   }