joh024/dygraph-extra

Add export to png capability to dygraphs

dygraph-extra

A modified version of the original dygraph-extra JavaScript library that adds the ability to export dygraph plots as a png image, among other things. Intended to be used in shiny with dygraphs for R, but dygraph-extra.js does work as a standalone.

Refer to the shiny-example for the actual files and an example of basic usage.

Dependencies:

• jQuery (loaded by shiny automatically)
• JSZip (only required if downloading multiple dygraphs in a single link)

License:

• The modifications were made by Jimmy Oh for the Ministry of Business, Innovation and Employment. It is released under CC BY. Attribution should be made to MBIE.

dygraph-extra.js

This is a modified version of dygraph-extra.js originally released in 2011 by Juan Manuel Caicedo Carvajal.

The modifications are:

• Fixed y label positioning.
• Automatic detectection of fonts for the labels, rather than relying on predefined or user-supplied fonts. This still isn't perfect, but should be closer to the actual dygraph.
• Fix overflow of legends for too many series (legends now wrap).
• A method for registering dygraphs via a drawcallback, primarily useful for those using the R version of dygraphs.
• A function for downloading one or more registered dygraphs where the dygraphs to download are identified by their id and where multiple plots are zipped together using JSZip.
• Functions to address some bugs/annoyances with dygraphs:
  • correct automatic resize on visiblity change.
  • correct clearance of selection on mouseleave.

dygraph-extra-shiny.R

Contains a number of R functions that make it easier to use dygraph-extra.js in shiny.

Example: dyDownload

dyDownload("dyout", "Download Plot", asbutton = TRUE)

Example: dyDownloadGroup

dyDownloadGroup("oecoDyDownloads", "Download Plots:", c(
      "Value added by tourism as a percentage of GDP" = "oecogdpperc",
      "Value added by tourism" = "oecogdp",
      "Tourism employment as a percentage of total employment" = "oecoempperc",
      "Tourism employment" = "oecoemp",
      "International tourism as a percentage of total exports" = "oecoexpperc",
      "Total expenditure" = "oecospend"
   ))

dygraph-extra's Issues

can't download when you add annotation [dyAnnotation]

hello

when i add annotation to the dygraphwith dyAnnotationdownload doesnt work
i just add one annotation to your example :

library(shiny)
library(dygraphs)
source("dygraph-extra-shiny.R")

shinyServer(function(input, output, session){
  ## Using one of the demos from https://rstudio.github.io/dygraphs/
  ## Only addition is the line adding the callback
  ##  to register the dygraph with dygraph-extra
  hw <- HoltWinters(ldeaths)
  predicted <- predict(hw, n.ahead = 72, prediction.interval = TRUE)

  outdy = dygraph(predicted, main = "Predicted Lung Deaths (UK)") %>%
    dyAxis("x", drawGrid = FALSE) %>%
   dySeries(c("lwr", "fit", "upr"), label = "Deaths") %>%
    dyOptions(colors = RColorBrewer::brewer.pal(3, "Set1")) %>% 
    dyAnnotation(as.POSIXlt("1985-02-14") ,
                 text = paste("birthday"),
                 attachAtBottom = F,
                 width = 60,
                 height = 25)%>%
    dyCallbacks(drawCallback = dyRegister())

     output$dyout = renderDygraph(outdy)
    })

the script run no R error or warning but there is a javascript error :
TypeError: Dygraph.Export.putLabelAnn is not a function

thank you

issue with dyDownload

Hi, I am using dygraphs to create dinamic graphics and I want to save the output as png. I have discovered the dyDownload from you, and it works at some extent, although the output that I get does not look exactly how it should (the years should appear in the same location as the grey vertical lines)

Do you know where the issue could be?
Thank you in advance and best regards

local storage

Hello!

Thank you for the great tool. I would have one question. I use shiny locally and would need this function to save dygraphs on my hard disk. Everytime on the same place with the same name (so the downlaod path selection dialogue would not be neede). I tried to find out, where i could change the code to do so (more are less pass a fixed path from shiny to the javascript or so) but i got lost totally. I have never worked with javascript so maybe you can give me a hint?

Greets and thanks ikua