Nothing
library(shiny)
# load libraries, source-files and data here
library(qlcData)
shinyServer(function(input, output) {
output$out <- renderText({
paste("You have selected", input$choice)
})
})
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.