Nothing
.onLoad <- function(libname, pkgname) {
ns <- asNamespace(pkgname)
assign('.sessions', value = fastmap::fastmap(), envir = ns)
assign('.shiny_components', value = fastmap::fastmap(), envir = ns)
try({
dipsaus::registerInputBinding(
fname = "pickerInput", pkg = "shinyWidgets",
shiny_binding = "shinyWidgets.pickerInput",
update_function = "shinyWidgets::updatePickerInput",
quiet = TRUE)
}, silent = TRUE)
options("ravedash.urls" = dipsaus::fastmap2())
}
#' @export
.Last.lib <- function(libpath){
tryCatch({
sess <- get0(x = '.sessions', ifnotfound = NULL)
if(inherits(sess, 'fastmap')){
li <- sess$as_list()
sess$reset()
lapply(li, function(item) {
# Finalize item
})
}
}, error = function(e){
warning(e)
})
}
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.