https://github.com/timelyportfolio/exportwidget

R htmlwidget to export other htmlwidgets and SVG as png
https://github.com/timelyportfolio/exportwidget

Last synced: 2 months ago
JSON representation

R htmlwidget to export other htmlwidgets and SVG as png

• Host: GitHub
• URL: https://github.com/timelyportfolio/exportwidget
• Owner: timelyportfolio
• License: mit
• Created: 2015-04-07T21:52:56.000Z (over 9 years ago)
• Default Branch: master
• Last Pushed: 2016-10-26T18:41:35.000Z (about 8 years ago)
• Last Synced: 2024-08-13T07:03:24.959Z (4 months ago)
• Language: JavaScript
• Size: 123 KB
• Stars: 17
• Watchers: 4
• Forks: 1
• Open Issues: 2
• Metadata Files:
  • Readme: Readme.md
  • Changelog: NEWS.md
  • License: LICENSE

Awesome Lists containing this project

• jimsghstars - timelyportfolio/exportwidget - R htmlwidget to export other htmlwidgets and SVG as png (JavaScript)

README

        
# exportwidget - htmlwidget to export htmlwidgets

This is **pre-alpha and experimental** `v0.2.0` but should work.  **Note, this currently does not work in RStudio Viewer**.  `export_widget` was the widget of the week at [Building Widgets](http://buildingwidgets.com), so you can see it in action in this [blog post](http://www.buildingwidgets.com/blog/2015/4/9/week-14-exporting-widget).

Thanks so much to the following libraries and their authors.

1. [`fabric.js`](http://fabricjs.com)

3. [`Download-File-JS`](https://github.com/PixelsCommander/Download-File-JS)

### Install

```r

devtools::install_github("timelyportfolio/exportwidget")

```

### Example with an htmlwidget | DiagrammeR

```r

library(pipeR)

library(htmltools)

library(DiagrammeR)

library(exportwidget)

tagList(

  grViz(" digraph { a->b; b->c; c->a; }")

  ,export_widget( )

) %>>% html_print( viewer = utils::browseURL ) #export not working in RStudio Viewer

```

### Example with multiple htmlwidgets

```r

library(pipeR)

library(htmltools)

library(DiagrammeR)

library(rcdimple)

library(networkD3)

library(exportwidget)

tagList(

  grViz(" digraph { a->b; b->c; c->a; }")

  ,dimple(

    mtcars

    , mpg ~ cyl

    , groups = "cyl"

    , type = "bubble"

  )

  ,simpleNetwork(

    data.frame(

      Source = c("A", "A", "A", "A", "B", "B", "C", "C", "D")

      ,Target = c("B", "C", "D", "J", "E", "F", "G", "H", "I")

    )

    ,height = 400

    ,width = 400

  )

  ,export_widget( )

) %>>% html_print( viewer = utils::browseURL ) #export not working in RStudio Viewer

```

```r

library(streamgraph)

library(dplyr)

library(exportwidget)

library(webshot)

library(ggplot2movies)

movies %>%

    select(year, Action, Animation, Comedy, Drama, Documentary, Romance, Short) %>%

    tidyr::gather(genre, value, -year) %>%

    group_by(year, genre) %>%

    tally(wt=value) %>%

    ungroup %>%

    mutate(year=as.Date(sprintf("%d-01-01", year))) -> dat

html_print(tagList(

  streamgraph(dat, "genre", "n", "year")

  ,export_widget( )

)) %>%

  normalizePath(.,winslash="/") %>%

  gsub(x=.,pattern = ":/",replacement="://") %>%

  paste0("file:///",.) %>%

  webshot( file = "stream_screen.png", delay = 10 )

```