dyRangeSelectorの値を光沢のあるアプリでdygraphから抽出します

Question

私はdygraphsライブラリを使用して光り輝くアプリにいくつかの非常に素晴らしいタイムシリーズのプロットを入れました。私は特にと組み合わせてdygraphにgroup引数を使用して、ズームレベルを複数のグラフに同期させるのが好きです。

他のの出力は、レンジセレクタのユーザ操作に反応しますか？私は現在、ユーザが選択した時間間隔でのみ合計にそのテーブルが欲しい

# app.R 
library(shiny) 
library(dygraphs) 
library(dplyr) 

indoConc <- Indometh[Indometh$Subject == 1, c("time", "conc")] 

ui <- fluidPage(
    dygraphOutput("plot"), 
    tableOutput("table") 
) 

server <- shinyServer(function(input, output) { 

    output$plot <- renderDygraph({ 
    indoConc %>% 
     dygraph %>% 
     dyRangeSelector 
    }) 

    output$table <- renderTable({ 
    indoConc %>% 
     filter(time >= min(indoConc$time), time <= max(indoConc$time)) %>% 
     summarise(total_conc = sum(conc)) 
    }) 
}) 

shinyApp(ui, server) 

：シンプルdygraphを示し、以下の表のシリーズを合計し、この例のアプリを取ります。これは、filterラインを変更して、最小/最大ポイント以外のものを使用することを意味します（フィルタリングは発生しません）。

レンジセレクタから適切な形式でこれらの2つの値を抽出して、filterコールで使用できるようにするにはどうすればよいですか？また、ユーザがスライダを動かすと反応的にテーブルが更新されますか？

Answer 1

dataframeであなたのtime変数は、私はあなたがcharacterにdatetimeオブジェクトを変換することを示唆していると、あなたが必要とする最後の3桁の数字を選択し、さらに使用するためnumericにそれを粗い、希望の3桁の変数であるので、そう：

rm(list = ls()) 
library(shiny) 
library(dygraphs) 
library(dplyr) 
library(stringr) 

indoConc <- Indometh[Indometh$Subject == 1, c("time", "conc")] 
takeLastnvalues <- -3 
ui <- fluidPage(dygraphOutput("plot"),tableOutput("table")) 

server <- shinyServer(function(input, output,session) { 

    values <- reactiveValues() 
    observeEvent(input$plot_date_window,{ 
    value1 <- input$plot_date_window[[1]] 
    value2 <- input$plot_date_window[[2]] 
    value1 <- sub("Z", "", value1) 
    value2 <- sub("Z", "", value2) 
    value1 <- str_sub(value1,takeLastnvalues,-1) 
    value2 <- str_sub(value2,takeLastnvalues,-1) 
    values$v1 <- as.numeric(value1) 
    values$v2 <- as.numeric(value2) 
    }) 

    output$plot <- renderDygraph({ 
    indoConc %>% 
     dygraph %>% 
     dyRangeSelector 
    }) 

    output$table <- renderTable({ 
    indoConc %>% 
     filter(time >= min(values$v1), time <= max(values$v2)) %>% 
     summarise(total_conc = sum(conc)) 
    }) 
}) 

shinyApp(ui, server)