PlotlyとShiny Dashboard-グラフで日付軸の範囲を変更するためにdaterangeinputを使用する

Question

私は線と散布と塗りつぶし領域変数でRでPlotlyグラフを作った。 X軸は、 "％Y-％m-％d％H：％M：％S"の形式で.POSIXCTでフォーマットされた日時です。 10分間隔で2ヶ月のデータがあります。 Y軸は単位数です。

私はグラフをシャイニーダッシュボードに統合しています。 daterangeInputを使用してX軸の日付範囲を選択したいと思います。私はどのようにdaterangeInputを積極的/インタラクティブに統合するかを理解できません。

助けていただけたら幸いです！

Plotlyグラフ、連結：

graph <- plot_ly(master, x = date, y = arrival.one, name = 'One Arrival', visible = "legendonly") %>% 
add_trace(x= date, y = arrival.two, name = 'Two Arrival', mode = 'lines', visible = "legendonly") %>% 
layout(xaxis = list(title= "Date and Time", 
     rangeslider = list (type = "date"))) 

UI：

ui <- dashboardPage(skin="black", 
       dashboardHeader(title = "Rack Filling"), 
       dashboardSidebar(sidebarMenu(
        menuItem("Dashboard", tabName = "dashboard", icon =  icon("line-chart")), 
        menuItem("Staffing", tabName = "staffing", icon = icon("male")), 
        dateRangeInput("inDateRange", "Date range input:") 
       )), 

サーバ：で

server <- function(input, output) { 
output$graph <- renderPlotly({graph    
}) 
output$event <- renderPrint({ 
?????????? 

Answer 1

server関数の場合、DateRangeが変更されるたびにデータセットをフィルタ処理するリアクティブメントを作成する必要があります。プロットを描画するには、それを反応的なものにします：

server <- function(input, output) { 
    reactiveMaster <- reactive({ 
     master %>% filter(date>=input$inDateRange[1] & date<input$inDateRange[2]) 
     }) 

    output$graph <- renderPlotly({ 
     plot_ly(reactiveMaster(), x = date, y = arrival.one, name = 'One Arrival', visible = "legendonly") %>% 
      add_trace(x= date, y = arrival.two, name = 'Two Arrival', mode = 'lines', visible = "legendonly") %>% 
      layout(xaxis = list(title= "Date and Time", 
        rangeslider = list (type = "date"))) 
     }) 
}