Fix fwrite POSIXct to write ISO-8601 datetimes

R/fwrite.R

@@ -121,6 +121,16 @@
       x
     })
   }
+
+  # ensure POSIXct columns are double for proper ISO formatting
+  x <- lapply(x, function(col) {
+    if (inherits(col, "POSIXt")) {
+      # coerce integer-backed to double
+      storage.mode(col) <- "double"
+    }
+    col
+  })
+
   .Call(CfwriteR, x, file, sep, sep2, eol, na, dec, quote, qmethod=="escape", append,
         row.names, col.names, logical01, scipen, dateTimeAs, buffMB, nThread,
         showProgress, is_gzip, compressLevel, bom, yaml, verbose, encoding, forceDecimal)

inst/tests/fwrite-datetime.Rraw.R

@@ -0,0 +1,30 @@
+test(
+  "fwrite: POSIXct should be written as ISO-8601, not numeric seconds",
+  {
+    oldtz = Sys.getenv("TZ", unset = NA)
+    on.exit({
+      if (is.na(oldtz)) Sys.unsetenv("TZ") else Sys.setenv(TZ = oldtz)
+    }, add = TRUE)
+
+    Sys.setenv(TZ = "UTC")
+
+    DT = data.table(
+      x = seq(
+        as.POSIXct("1970-01-01", tz = "UTC"),
+        by = "1 sec",
+        length.out = 3
+      )
+    )
+
+    tmp = tempfile()
+    fwrite(DT, tmp)
+
+    out = readLines(tmp)
+
+    stopifnot(
+      out[1L] == "x",
+      out[2L] == "1970-01-01T00:00:00Z",
+      out[3L] == "1970-01-01T00:00:01Z",
+      out[4L] == "1970-01-01T00:00:02Z"
+    )
+  })

inst/tests/tests.Rraw

@@ -21509,3 +21509,4 @@ setdroplevels(x)
 setdroplevels(y)
 test(2364.2, levels(x$a), levels(y$a))
 rm(x, y)
+