Nothing
.onLoad <- function(libname, pkgname) {
op <- options()
op.shinyjqui <- list(shinyjqui.debug = FALSE)
toset <- !(names(op.shinyjqui) %in% names(op))
if(any(toset)) options(op.shinyjqui[toset])
shiny::registerInputHandler("shinyjqui.df", function(data, shinysession, name) {
data <- lapply(data, function(x) {
`if`(length(x) == 0, NA_character_, unlist(x))
})
data.frame(data, stringsAsFactors = FALSE)
}, force = TRUE)
invisible()
}
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.