shiny-wherami.md

See examples at

• https://connect.thinkr.fr/shiny-whereami/

• https://colinfay.shinyapps.io/shiny-whereami/

shiny-whereami.R

library(shiny)
ui <- function(request){
  tagList(
    tags$script(
      "$(document).on('shiny:connected', function(event) {",
      "Shiny.setInputValue('location', document.location)",
      "})"
    ),
    verbatimTextOutput("wherami")
  )
}

server <- function(
  input,
  output,
  session
){
  output$wherami <- renderPrint({
    print(input$location)
  })
}

shinyApp(ui, server)