Nothing
getLocalTags <- function() {
if (!isLocal()) {
return(NULL)
}
htmltools::tagList(
htmltools::tags$script(paste0(
"$(function() {",
" $(document).on('shiny:disconnected', function(event) {",
" $('#ss-connect-dialog').show();",
" $('#ss-overlay').show();",
" })",
"});"
)),
htmltools::tags$div(
id="ss-connect-dialog", style="display: none;",
htmltools::tags$a(id="ss-reload-link", href="#", onclick="window.location.reload(true);")
),
htmltools::tags$div(id="ss-overlay", style="display: none;")
)
}
isLocal <- function() {
Sys.getenv("SHINY_PORT", "") == ""
}
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.