In loosolab/i2dash: Iterative and Interactive Dashboards

<% if(!is.null(title)) title %>

if (!requireNamespace("<% package %>", quietly = TRUE)) {
    stop('The package "<% package %>" is needed to embed objects of class "<% class %>".', call. = FALSE)
}

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 <- "lib/jquery"
        dependency$package <- "crosstalk"
    }
    if(dependency$name == "crosstalk"){
        dependency$src$file <- "www"
        dependency$package <- "crosstalk"
    }
    return(dependency)
}
if ("<% package %>" == "plotly"){
  vis_<% component_id %>$dependencies <- lapply(vis_<% component_id %>$dependencies, fix_dependency)  
}

vis_<% component_id %>

loosolab/i2dash documentation built on April 8, 2021, 12:41 a.m.