## ---- 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)