Using whereami
with shiny is simple. Place cat_where(whereami())
anywhere in a shiny command and every time the rendering application hits the line it will print to console indicating which line has been hit accompanied by a counter.
── Running renderPlot(...) at shiny.R#15 (1) ───────────────────────────────────────────
── Running renderPlot(...) at shiny.R#15 (2) ───────────────────────────────────────────
Here is an example of a simple app that uses whereami
in the renderPlot
chunk.
# 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)