Synchronise Dygraph and DateRangeInput in Shiny : <p>I would like to synchronise a dygraph and a DateRangeInput inside a Shiny App.
The code bellow works fine : I can simultaneously use the zoom option And the daterange but I can't use the dyRangeSelector because of a "ping pong" Effect :</p>

<pre><code>library(xts)
library(shiny)
library(dygraphs)
library(lubridate)


data("co2")
data &lt;- as.vector(coredata(as.xts(co2)))
serie &lt;-  xts(x = data,order.by = seq(from=today(),by=1,length.out = length(data)))
ui &lt;- fluidPage(
   titlePanel("Dygraph &amp; date range input"),
   sidebarLayout(
      sidebarPanel(
        dateRangeInput('plage', label = "Selectionnez la période :",
                        start = start(serie), end = end(serie),
                         # min = start(serie), max = end(serie),
                       separator = " - ", 
                       format = "dd mm yyyy", #"yyyy-mm-dd",
                       language = 'fr', weekstart = 1
        )
      ),
      mainPanel(
         dygraphOutput("dessin")
      )
   )
)

server &lt;- function(input, output,session) {

observeEvent(input$dessin_date_window,{
  start &lt;- as.Date(ymd_hms(input$dessin_date_window[[1]]))
  stop  &lt;- as.Date(ymd_hms(input$dessin_date_window[[2]]))
  updateDateRangeInput(session = session,
                       inputId = "plage",
                       start = start,end = stop
                       )
})

  output$dessin &lt;- renderDygraph({
      dygraph(serie) %&gt;%
    dyRangeSelector(
      dateWindow = input$plage+1) # +1 parce que voila...
  })
}

# Run the application 
shinyApp(ui = ui, server = server)
</code></pre>

<p>Any idea how to control that ?
(there is no update function for dygraph... :( )</p>
