Shiny/DT：日期时间列的列和顶部过滤器显示错误的值

Question

我很难弄清楚为什么我的列和日期时间列的过滤器显示错误的日期和时间。

我的数据看起来像这样（dput 在下面的闪亮代码中）：

                 DATUM NUMMER
1  2017-03-29 00:00:02     19
2  2017-03-29 00:00:36     20
3  2017-03-29 00:00:40     21
4  2017-03-29 00:00:44     22
5  2017-03-29 00:00:47     23
6  2017-03-29 00:00:51     24
7  2017-03-29 00:00:55     25
8  2017-03-29 00:00:59     26
9  2017-03-29 00:01:03     27
10 2017-03-29 00:01:07     28

正如我们所看到的，这没什么特别的。在闪亮的 using 包中显示此数据后DT，数据如下所示：

显示有2小时的差异，没有任何原因......

我的第一个方法是检查我的Sys.time()

> Sys.time()
[1] "2017-03-30 09:09:40 CEST"

这是正确的，第二种方法是深入研究DT文档，我在那里找到了该函数：formatDate(1, method = 'toLocaleString')。我已经使用过它，日期时间字段的显示似乎很好（见下图），但是顶部过滤器仍然显示错误的日期时间值......

这是可重现的示例：

library(shiny)
library(DT)

data <- structure(list(DATUM = structure(c(1490738402, 1490738436, 1490738440, 
                                           1490738444, 1490738447, 1490738451, 1490738455, 1490738459, 1490738463, 
                                           1490738467), class = c("POSIXct", "POSIXt"), tzone = "CEST"), NUMMER = c(19, 
                                                                                                                20, 21, 22, 23, 24, 25, 26, 27, 28)), .Names = c("DATUM", "NUMMER"
                                                                                                                ), row.names = c(NA, 10L), class = "data.frame")

ui= fluidPage(

      dataTableOutput("tab")
    )

server= function(input, output,session) {

  output$tab <- DT::renderDataTable({
    datatable(data,rownames=TRUE, filter="top", class = 'cell-border stripe') %>%
      formatDate(1, method = 'toLocaleString')})


}

shinyApp(ui, server)

正如我们在数据中看到的，min日期时间值是2017-03-29 00:00:02，但是顶部过滤器datatable显示2017-03-28T22:00:02，而max数据中的日期时间值是：2017-03-29 00:01:07，顶部过滤器显示：2017-03-28T22:01:07。

我将不胜感激任何帮助和解释，为什么DT包会转换我的数据并以 2 小时的差异显示它，以及为什么在暗示该功能后formatDate()，过滤器仍然显示错误的值。

感谢帮助

Answer 1

noUISlider 的代码在这里。看起来当获取滑块的最小值和最大值时，所有日期都被视为 UTC。

您可以将日期和时间转换为 UTC 时区中的相同日期和时间，以使滑块和日期之间保持一致：

data$DATUM <- as.POSIXct(as.character(data$DATUM), tz="UTC")

ui=fluidPage(

  dataTableOutput("tab")
)

server= function(input, output,session) {

  output$tab <- DT::renderDataTable({
    datatable(data,rownames=TRUE, filter="top", class = 'cell-border stripe') %>%
      formatDate(1, method = 'toISOString')})


}

shinyApp(ui, server)

移动滑块时，R 控制台中会出现警告，指出时区不一致，但过滤有效。