PJ,
In coming up with a simple example I managed to get this to work. Here's the example in case anyone else has the same trouble.
Tom
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title="Query Parameters"),
dashboardSidebar(),
dashboardBody(
h3("URL components"),
verbatimTextOutput("urlText"),
h3("Parsed query string"),
verbatimTextOutput("queryText")
)
)
server <- function(input, output, session) {
# Return the components of the URL in a string:
output$urlText <- 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"
)
})
# Parse the GET query string
output$queryText <- renderText({
query <- parseQueryString(session$clientData$url_search)
# Return a string with key-value pairs
paste(names(query), query, sep = "=", collapse=", ")
})
}
shinyApp(ui, server)