Nothing
library(shiny)
ui <- fluidPage(
)
server <- function(input, output, session) {
}
opts <- list(
port = as.numeric(Sys.getenv("SHINY_TESTTHAT_PORT_APP", "8080")),
launch.browser = FALSE
)
shinyApp(ui, server, options = opts)
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.