Shiny - Plotly 时间序列和 dateRangeInput

Question

我有一个带有 Plotly 时间序列的 Shiny 仪表板，其范围通过我放在一起的反应式 dateRangeInput 进行调整（请参阅下面的代码）。

一切正常，但后来我更新了我的包。从那时起，变量不会在第一个实例中自动显示，您必须选择日期范围，而不是使用默认时间范围加载绘图。

而且 dateRangeInput 使用的是奇怪的语言，例如 monate、tueate、wedate 等。

我需要一些帮助来确定我的问题可能是什么。

会话信息

更新之前我使用的是 Plotly 3.6.0、shinyDashboard 0.5.1 和 shiny 0.13.2。

更新后我使用的是 Plotly 4.5.6、shinyDashboard 0.5.3 和 shiny 0.14.2

请看下面的相应代码

ui - plotlyOutput 时间序列代码

box(width = 8, 
    solidHeader = TRUE, 
    plotlyOutput("Time_Ser", height ="300px"))

ui - dateRange输入代码

dateRangeInput("date","Date:", 
              label = h4("Time Series: select dates"),
              start = "2017-05-02",
              end = "2017-07-30", 
              min = "2017-05-02",
              max = "2017-06-30", 
              startview = "2017-06-30")

服务器 - 响应式输入代码

        Time2 <- Time
                 reactiveTime <- reactive({
                 Time2 %>% filter(Date.received>=input$date[1] & 
                 Date.received<input$date[2])
                 })

服务器 - 输出

       output$Time_Ser <- renderPlotly({
                          Time_Ser <- plot_ly(reactiveTime(), 
                          x = ~Date.received, 
                          y = ~n, 
                          type = "scatter", 
                          mode = "lines") %>%
                          layout(title = "Enquiries Time Series")
                          })

支持图片

Answer 1

尝试为您的dateRangeInput 使用类似以下的内容。我无法解释为什么您的代码以前有效，但请注意 startview 应该是一个分类字符串，您可以指定显示的日期格式（以覆盖它似乎默认为 DD 的事实），并且您可以强制语言（但实际上不需要）。

dateRangeInput("date", "Date:", 
          label = h4("Time Series: select dates"),
          start = "2016-05-02",
          end = "2016-12-31",
          min = "2016-01-01",
          max = "2016-12-31",
          startview = "year",
          weekstart=0,
          language="en",
          format="yyyy-mm-dd")

• 请注意，以上日期适用于我为测试目的创建的一些虚拟数据。