Nothing
library(shiny)
library(shinytitle)
ui <- fluidPage(
title = "shinytitle Example",
use_shiny_title(),
busy_window_title(),
inputPanel(actionButton("button2", "Sleep and Plot Generation")),
plotOutput("plt")
)
server <- function(input, output, session) {
plt <- eventReactive(input$button2, {
Sys.sleep(3)
plot(mtcars$cyl, mtcars$disp)
})
output$plt <- renderPlot(plt())
}
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.