DT::datatable()中日期时间值显示异常原因咨询

问题场景 #

使用DT::datatable()展示转换为POSIXct类型的日期时间时，表格中的日期时间显示异常（如出现类似/Date(1669370382000)/的格式），相关代码如下：

library(DT)
library(lubridate)
eventex <- structure(list(registration_type = c("Start", "Stopp"),
                         timestamp = c("25.11.2022 13:19:42", 
                                       "31.10.2022 14:19:13")),
                         row.names = c(NA, -2L), 
                         class = c("tbl_df", "tbl", "data.frame"))

eventex$timestamp<-as.POSIXct( paste0(eventex$timestamp),
                               format="%d.%m.%Y %H:%M:%S")

datatable(eventex)

原因分析 #

DT在处理R的POSIXct类型数据时，会自动将其序列化为JavaScript的Date对象，而JavaScript的Date基于UTC时区，同时R中未指定时区的POSIXct会默认使用系统本地时区，两者的时区差异以及序列化规则导致日期时间无法以预期的字符串格式展示，而是显示为JavaScript Date的内部时间戳格式。

解决方法 #

方法1：将POSIXct转换为字符型 #

直接把日期时间转换为字符串，跳过DT的自动类型转换，确保显示原始格式：

eventex$timestamp <- as.character(eventex$timestamp)
datatable(eventex)

方法2：使用DT的formatDate函数指定显示格式 #

通过formatDate函数控制日期时间的展示样式，同时匹配时区：

datatable(eventex) %>% 
  formatDate(
    columns = "timestamp",
    method = "toLocaleString",
    params = list(
      options = list(
        year = "numeric",
        month = "2-digit",
        day = "2-digit",
        hour = "2-digit",
        minute = "2-digit",
        second = "2-digit"
      )
    )
  )

方法3：转换POSIXct时明确指定时区 #

在转换日期时间时指定时区（如UTC或本地时区），再配合formatDate统一展示规则：

# 转换时指定UTC时区
eventex$timestamp <- as.POSIXct(eventex$timestamp, format = "%d.%m.%Y %H:%M:%S", tz = "UTC")
# 展示时匹配UTC时区
datatable(eventex) %>% 
  formatDate(
    columns = "timestamp",
    method = "toLocaleString",
    params = list(options = list(timeZone = "UTC"))
  )

内容的提问来源于stack exchange，提问作者firmo23