Question

我在弄清楚为什么我的列和过滤器的datetime列显示错误的日期和时间时遇到了一些麻烦。

我的数据如下所示（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

我们可以看到，这没什么特别的。使用DT包以闪亮方式显示此数据后，数据如下所示：

显示2h差异，没有任何理由......

第一种方法是检查我的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包转换我的数据并以2h差异显示它，以及为什么在暗示函数formatDate()之后，过滤器仍显示错误的值。

感谢您的帮助

Answer 1

noUISlider的代码是here。看起来所有日期都被视为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控制台中会显示一条警告，指出时区不一致但过滤有效。

Shiny / DT：专栏＆amp; datetime列的顶部过滤器显示错误的值

1 个答案: