Shiny - Plotly Zeitreihe und dateRangeInput

Question

Ich habe ein Shiny Dashboard mit einer Plotly Zeitreihe, deren Bereich über einen reaktiven dateRangeInput angepasst wird (siehe Code unten).

Alles funktionierte gut, aber dann habe ich meine Pakete aktualisiert. Da die Variablen in der ersten Instanz nicht automatisch angezeigt werden, müssen Sie anstelle des Ladens des Diagramms die Datumsbereiche mit einem Standardzeitbereich auswählen.

Was mehr ist die dateRangeInput fremden Sprache wie Monate verwendet, tueate, wedate usw.

ich etwas Hilfe brauchen, um festzustellen, was kann mein Problem sein.

Session info

Vor dem Update I Plotly 3.6.0 wurde mit, shinyDashboard 0.5.1 und glänzend 0.13.2.

Nach dem Update ich Plotly 4.5.6 verwende, shinyDashboard 0.5.3 und glänzend 0.14.2

Bitte beachten Sie die entsprechenden Code unten

ui - plotlyOuput Time Series Code

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

ui - dateRangeInput Code

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") 

server - Reactive Eingangscode

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

Server - output

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

Supporting Bilder

Answer 1

Versuchen Sie etwas wie das folgende für Ihre dateRangeInput. Ich kann nicht erklären, warum Ihr Code zuvor funktioniert hat, aber beachten Sie, dass startview eine kategorische Zeichenfolge sein sollte, können Sie das angezeigte Datumsformat angeben (um die Tatsache zu überschreiben, dass es standardmäßig DD zu sein scheint), und Sie können Sprache erzwingen muss das eigentlich nicht).

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") 

• Beachten Sie, dass die Daten in der oben gelten für einige Dummy-Daten, die ich zu Testzwecken erstellt.