Shinyapp io服务器上的应用程序未在表中显示最新日期，但在本地计算机上可以运行

编程问答 2022-06-08

问题描述

我最近构建了一个应用程序，并将其加载到Shinyapps io。在这里，我可以看到我的应用及其所有标签，表格和功能。在我的应用中，每个标签中都有一个表格。

在每个表格中，用户都可以为表格中显示的日期选择一个范围，但是，当首次加载该应用程序时，它应该自动在表格中显示最近日期的范围-7天。在我的计算机上，它确实可以做到这一点，但是当我将其加载到闪亮的应用程序io中时，daterangeInput中显示的最新日期是2020-10-05。似乎莫名其妙地停留在那一天，我不知道为什么。

我似乎找不到解决方案。这是我的代码：

#ui.r

tabItem(tabName = "overview",fluidRow(
        daterangeInput("date1",label = 'Date range input',start = range(tib1$Day)[2] - 7,end = range(tib1$Day)[2],min = range(tib1$Day)[1],max =  range(tib1$Day)[2]
        )
      ),Box( title = "Overview Table",status = "warning",height = 700,width = "12",solidHeader = TRUE,column( width = 12,DT::dataTableOutput("overviewtable"),style = "height:600px; overflow-y: scroll;overflow-x: scroll;"
           )
      )
    ),
#server.r

 overviewdata<- reactive({
    filter(tib1,between(Day,input$date1[1],input$date1[2]))
  })
  
 
  
  #Table for overview
  output$overviewtable<- DT::renderDataTable({
    DT::datatable(data =overviewdata(),extensions = 'Buttons',options = list(
                    lengthMenu = list(c(10,25,50,100,-1),c("10","25","50","100","All")),dom = "Blfrtip",buttons =
                      list("copy",list(
                        extend = "collection",buttons = c("csv","excel","pdf"),text ="Download"
                      ))#End of button customization
                  ))
  })

数据框tib1中的变量 Day 是“日期”“旧类”类。 我感觉服务器在使用功能range()时遇到了麻烦。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

as.datedataframeioiorangerangeshinyapps