# NOT RUN {
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=", ")
  })
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab