Question

我要输入日期范围内的日期和子集数据。 “ sampletab”是我的数据变量。

使用 dateRangeInput（）和 renderDT（）的数据解析错误。出现错误：“ 没有活动的响应上下文，不允许进行操作。” 我试图在UI中使用 dateRangeInput（）输入日期，并使用 renderDT（）输出数据。这是代码：

sampletab <- 
structure(list(ID = c("KK-112", "KK-113", "KK-114", "KK-115", "KK-116", "KK- 
117", "KK-118", "KK-119"),
Date = c("2018-07-01 15:37:45", "2018-07-05 18:14:25", "2018-07-07 
13:21:55", "2018-07-12 07:47:05", "2018-07-04 11:31:12", "2018-07-07 
03:27:15", "2018-07-18 08:16:32", "2018-07-21 18:19:14"),                            
Value = c("ACR", "ACR", "ARR", "ARR", "RTR", "ACR", "ARR", "ACR"),
Result = c("Pending", "Pass", "Accepted", "Rejected", "Duplicate", 
"Pending", "Rejected", "Pending")),
                  .Names = c("ID", "Date", "Value", "Result"),
                  row.names = c(NA, -8L), class = "data.frame")
ui <- shinyUI(
box(title = "Customize your report",                 
dateRangeInput("dates", "Select Dates", 
min = as.Date(min(sampletab$Date)), 
max = as.Date(max(sampletab$Date), 
separator = "To")),
actionButton("run_query", "Submit"),
DTOutput("scrolltable"), width = 12))

server <- shinyServer(function(input, output, session){
Pivot <- sampletab %>% filter(Date >= input$ID[1] & Date <= input$ID[2])
output$scrolltable <- renderDT({
Pivot %>% datatable(options = list(scrollX = TRUE, paginate = T, 
lengthMenu = c(5,10,15), pageLength = 5))
  })

结果应在闪亮的App中显示数据表。我从“ Trigger query based on selected date range in Shiny R”中获取了上述示例。

我只希望应该按照日期范围输入过滤“ sampletab”数据，并在每列5行且所有列均显示在可滚动表中。

再次在App中显示的表格数据应具有下载按钮，以将显示的结果下载到可滚动表格中。

有人可以帮我吗？

谢谢。

具有dateRangeInput（）和输出应在renderDT（）中的子集数据将引发错误

0 个答案: