parseQueryString("?foo=1&bar=b%20a%20r")
## Not run: 
# # Example of usage within a Shiny app
# function(input, output, session) {
# 
#   output$queryText <- renderText({
#     query <- parseQueryString(session$clientData$url_search)
# 
#     # Ways of accessing the values
#     if (as.numeric(query$foo) == 1) {
#       # Do something
#     }
#     if (query[["bar"]] == "targetstring") {
#       # Do something else
#     }
# 
#     # Return a string with key-value pairs
#     paste(names(query), query, sep = "=", collapse=", ")
#   })
# }
# ## End(Not run)
Run the code above in your browser using DataLab