Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(whereami)
## ----eval = FALSE-------------------------------------------------------------
# # Global variables can go here
# n <- 200
#
#
# # Define the UI
# ui <- bootstrapPage(
# numericInput('n', 'Number of obs', n),
# plotOutput('plot')
# )
#
#
# # Define the server code
# server <- function(input, output) {
# output$plot <- renderPlot({
# cat_where(whereami())
# hist(runif(input$n))
# })
# }
#
# # Return a Shiny app object
# shinyApp(ui = ui, server = 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.