Nothing
library(shiny)
data(iris)
# load separate module and function scripts
source("xx_modules.R")
ui <- fluidPage(
headerPanel("Iris k-means clustering"),
xx_mod_ui("input1")
)
server <- function(input, output, session) {
# res <- callModule(xx_mod, "input1")
res <- callModule(xx_mod_server, "input1")
}
shinyApp(ui, server)
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.