diff --git a/DESCRIPTION b/DESCRIPTION index 842c2338e880d42ba00bb5febf32c793043df8fe..674c5f71cd9d3cff172e895d4266cd3c0f6786ad 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -25,6 +25,7 @@ Imports: Suggests: highcharter, plotly, + crosstalk, gt, ggplot2, DT, diff --git a/inst/templates/vis_object.Rmd b/inst/templates/vis_object.Rmd index 425765a931889c7bcaf0c1f1ca9bcf01fec3fbb8..a43ef1c6abf141b757bdb0c77841a7784af3a3d4 100644 --- a/inst/templates/vis_object.Rmd +++ b/inst/templates/vis_object.Rmd @@ -7,7 +7,20 @@ if (!requireNamespace("<% package %>", quietly = TRUE)) { stop('The package <% package %> is needed to embed objects of class <% class %>.', call. = FALSE) } -readRDS(file.path(datadir, '<% component_id %>.rds')) +vis_<% component_id %> <- readRDS(file.path(datadir, '<% component_id %>.rds')) + +# workaround for plotly dependencies issue (https://github.com/ropensci/plotly/issues/1044) +# +fix_dependency <- function(dependency){ + if(dependency$name == "jquery") dependency$src$file <- file.path(system.file(package ="crosstalk"), "lib/jquery") + if(dependency$name == "crosstalk") dependency$src$file <- file.path(system.file(package ="crosstalk"), "www") + return(dependency) +} +if ("<% package %>" == "plotly"){ + vis_<% component_id %>$dependencies <- lapply(vis_<% component_id %>$dependencies, fix_dependency) +} + +vis_<% component_id %> ```