Nothing
library(shiny)
shinyServer(function(input, output, session) {
# output sessionInfo
output$sessionInfo <- renderPrint({
sessionInfo()
})
# output urlInfo
output$urlInfo <- renderText({
paste(sep = "",
"protocol: ", session$clientData$url_protocol, "\n",
"hostname: ", session$clientData$url_hostname, "\n",
"pathname: ", session$clientData$url_pathname, "\n",
"port: ", session$clientData$url_port, "\n",
"search: ", session$clientData$url_search, "\n"
)
})
# output userInfo
output$userInfo <- renderText({
paste(sep = "",
"user: ", session$user, "\n")
})
})
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.