How to use saveWidget to save a crosstalk result as local HTML file?

[ghost]

How to use htmlwidgets::saveWidget to save a crosstalk result like
library(crosstalk)

shared_iris <- SharedData$new(iris)
hw <- bscols(
d3scatter(shared_iris, ~Petal.Length, ~Petal.Width, ~Species, width="100%", height=300),
d3scatter(shared_iris, ~Sepal.Length, ~Sepal.Width, ~Species, width="100%", height=300)
)

?? how to save hw as a local HTML file

Thanks!

[jjallaire]

The easiest thing might just be to place that code in an R Markdown document and render it.

That said, I know there is a way to do it from plain R but can't recall the specifics. @timelyportfolio ?

[jto888]

If you call for the widget in RStudio there is an Export option to "Save as webpage. . . "

…

On 4/10/2017 6:28 AM, JJ Allaire wrote: The easiest thing might just be to place that code in an R Markdown document and render it. That said, I know there is a way to do it from plain R but can't recall the specifics. @timelyportfolio <https://github.com/timelyportfolio> ? — You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub <#266 (comment)>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AIc65HDgeoSmw42uM2IIhgJSLSVQs83xks5rugQxgaJpZM4M4Ygn>.

[jjallaire]

Actually I think you can just do this:

library(crosstalk)

shared_iris <- SharedData$new(iris)
hw <- bscols(
d3scatter(shared_iris, ~Petal.Length, ~Petal.Width, ~Species, width="100%", height=300),
d3scatter(shared_iris, ~Sepal.Length, ~Sepal.Width, ~Species, width="100%", height=300)
)
htmltools::save_html(hw)

[timelyportfolio]

If that does not work, see rstudio/htmltools#73, and let me know.

[ghost]

Thanks everybody. save_html works. I tried like:
htmltools::save_html(hw, "foo.html", libdir = "lib"). It has some warnings:
Warning messages:
1: In format(object) : restarting interrupted promise evaluation
2: In get(method, envir = home) :
restarting interrupted promise evaluation
3: In get(method, envir = home) : internal error -3 in R_decompress1
But I did see the html can be opened and showed correctly.

hw$children can return the divs but seems no way to get the dependency scripts.

[jcheng5]

The error will likely go away if you restart your R process. Every time I've seen that it's because devtools has tried and failed to completely unload an old version of a package.

[jcheng5]

And for the record, I agree with htmltools::save_html() being the answer for this; if it didn't work, I would consider it a bug.

[ismirsehregal]

Is there any way to programmatically save a selfcontained HTML file from this code snippet:

library(crosstalk)
library(d3scatter)

shared_iris <- SharedData$new(iris)
hw <- bscols(
  d3scatter(shared_iris, ~Petal.Length, ~Petal.Width, ~Species, width="100%", height=300),
  d3scatter(shared_iris, ~Sepal.Length, ~Sepal.Width, ~Species, width="100%", height=300)
)
htmltools::save_html(hw, "result.html")

By default a lib folder is created.

However, using RStudio's export option "Save as webpage. . . " a standalone HTML file is produced. - How is it done?

htmlwidgets::saveWidget(hw, "result.html", selfcontained = TRUE) results in

Error in .getNamespace(pkg) :
invalid type/length (symbol/0) in vector allocation

which might be expected.

Any hints are very welcome! - Cheers

[danielludolf]

@ismirsehregal Did you ever figure out how RStudio's "Save as webpage" option creates a sole HTML file?

[ismirsehregal]

@danielludolf RStudio requires installing library(markdown) before "Export -> Save as Web Page..." can be used.

However, I've been using htmlwidgets::saveWidget (where possible) and library(rmarkdown):

library(crosstalk)
library(plotly)
library(rmarkdown)
library(datasets)

shared_iris <- SharedData$new(iris)
fig <- bscols(
  plot_ly(shared_iris, x = ~Petal.Length, y = ~Petal.Width, colors = ~Species),
  plot_ly(shared_iris, x = ~Sepal.Length, y = ~Sepal.Width, colors = ~Species)
)
# htmlwidgets::saveWidget(fig, "result.html", selfcontained = TRUE) # this works using plotly::subplot instead of bscols
# also see ?partial_bundle

tempRmd <- tempfile(pattern = "plotly", fileext = ".Rmd")
writeLines('---
output: html_document
params:
  plotlyfig: NA
---

```{r plotlyout, echo=FALSE, message=FALSE, out.width="100%"}
params$plotlyfig
```', con = tempRmd)

rmarkdown::render(tempRmd, output_format = "html_document", output_file = "fig.html", output_options = list(self_contained = TRUE), params = list(plotlyfig = fig))
utils::browseURL(file.path(tempdir(), "/fig.html"))
# shell.exec(tempdir())