json_query <- file.path(system.file(package = "pxweb"),
"extdata", "examples", "json_query_example.json")
pxq <- pxweb_query(json_query)
json <- pxweb_query_as_json(pxq, pretty = TRUE)
Run the code above in your browser using DataLab