2017-08-16 94 views
0

我有一個閃亮的儀表板與一個Plotly時間系列,其範圍是通過一個反應dateRangeInput我放在一起調整(請參閱下面的代碼)。閃亮 - Plotly時間系列和dateRangeInput

一切工作正常,但後來我更新了我的軟件包。此後,變量不會自動顯示在第一個實例中,您必須選擇日期範圍,而不是使用默認時間範圍加載繪圖。

更重要的是在dateRangeInput用陌生的語言,如單胞菌,tueate,wedate等

我需要一些幫助建立什麼我的問題可能是。

會話信息

在此之前我用Plotly 3.6.0更新,shinyDashboard 0.5.1和光澤0.13.2。

我使用Plotly 4.5.6更新後,shinyDashboard 0.5.3和閃亮0.14.2

請參考下面

UI相應的代碼 - plotlyOuput時間序列代碼

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

UI - dateRangeInput代碼

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

支持圖像

enter image description here

enter image description here

回答

0

嘗試對您的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") 
  • 注意的是,在上述日期適用於我爲測試目的創建了一些虛擬數據。
+0

不幸的是,該圖仍未加載數據的默認視圖。但是,使用您提供的代碼可以解決輸入中標籤的問題。非常感謝。 – Pryore

+0

嗯。如果你關心,可能會發布完整的MWE。使它更容易排除故障... – joelnNC