Nothing
#' Canvas Server Functions
#'
#' @importFrom utils packageVersion
#' @noRd
CanvasModuleServer <- function(id, selected_template) {
moduleServer(id, function(input, output, session) {
setBookmarkExclude(c("html", "canvas", "screenshot"))
observeEvent(selected_template(), {
session$sendInputMessage("html", selected_template())
})
return(list(
ui_code = reactive(input$canvas),
html = reactive(input$html)
))
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.