dygraphs_plugins.R

# dygraphs plug-ins
# source: https://rstudio.github.io/dygraphs/gallery-plugins.html



dyCrosshair <- function(dygraph, 
                        direction = c("both", "horizontal", "vertical")) {
   
   # show a vertical crosshair for mouse
   
   dyPlugin(
      dygraph = dygraph,
      name = "Crosshair",
      path = system.file("plugins/crosshair.js", 
                         package = "dygraphs"),
      options = list(direction = match.arg(direction))
   )
}


dyUnzoom <-function(dygraph) {
   
   # put up "Reset zoom" button
   
   dyPlugin(
      dygraph = dygraph,
      name = "Unzoom",
      path = system.file("plugins/unzoom.js", package = "dygraphs")
   )
}