Question

我的数据集包含字段timestamp，number1，number2，..等。示例数据看起来像这样

1487808841,7378393242,7378373931，..... 1487808841,7378393242,7378373931，..... 1487808841,7378393245,7378373932，.....

我需要构建一个闪亮的应用程序，它需要两个输入开始时间和结束时间，并返回范围之间的数据。

我使用

转换了时间戳字段

data $ TimeStamp＆lt; -as.POSIXct（data $ TimeStamp，origin =＆＃34; 1970-01-01＆＃34;，tz =＆＃34; GMT＆＃34;）。

这是我闪亮的代码。

    ui <- fluidPage(
  title = 'Enter the start Time and End Time',

  div( id = "eg3",
       fluidRow(
         column(width = 11, offset = 1,
                h4('Enter the start Time and End Time'),
                sliderInput("starttime", "Date & Time:", 
                            min=as.POSIXlt("2017-02-23 00:00:00", "GMT"),
                            max=as.POSIXlt("2017-02-24 23:59:59", "GMT"),
                            value=as.POSIXlt("2010-01-01 00:00:00", "GMT"),
                            timezone = "GMT"),
                sliderInput("endtime", "Date & Time:", 
                            min=as.POSIXlt("2017-02-23 00:00:00", "GMT"),
                            max=as.POSIXlt("2017-02-24 23:59:59", "GMT"),
                            value=as.POSIXlt("2010-01-01 00:00:00", "GMT"),
                            timezone = "GMT"),
                dataTableOutput("output_slider2")
         )
       )
  )
)

server <- function(input, output, session) {

  output$output_slider2  <- renderDataTable({
    filtered<-cdr1[cdr1$TimeStamp>=input$starttime & cdr1$TimeStamp<=input$endtime,]
    filtered[,1]<-as.character(filtered[,1])
    datatable(filtered)
  })
}


shinyApp(ui = ui,server = server)

现在，当我输入开始日期和时间为2017-02-23 01:00:00，结束日期为2017-02-23 18:00:00时，它检索45,301行，其中为

data[data$TimeStamp>="2017-02-23 01:00:00" & data$TimeStamp<="2017-02-23 18:00:00",]

检索32,400条记录。

为什么Shiny会检索更多记录？

如何解决？

任何帮助都将受到高度赞赏。

提前致谢。

R和Shiny在时间段之间返回数据的结果不同

0 个答案: