Nothing
input <- list( x = 10, y = "Hello" )
library(shiny) a <- 1 a b = 2 b
my_df <- reactive({ head(cars, input$x) }) about_df <- reactiveValues(n_obs = nrow(my_df()), len = length(my_df())) renderText(input$x) renderText(input$y)
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.