
Last chance! 50% off unlimited learning
Sale ends in
Do a GET call to PXWEB API
pxweb_get(url, query = NULL, verbose = TRUE)
a pxweb
object or url that can be coherced to a pxweb
object.
a json string, json file or list object that can be coherced to a pxweb_query
object.
should large queries print out progress.
# NOT RUN {
url <- "http://api.scb.se/OV0104/v1/doris/sv/ssd/BE/BE0101/BE0101A/BefolkningNy"
px_meta_data <- pxweb_get(url)
url <- "http://api.scb.se/OV0104/v1/doris/sv/ssd/BE/BE0101"
px_levels <- pxweb_get(url)
url <- "http://api.scb.se/OV0104/v1/doris/sv"
px_levels <- pxweb_get(url)
url <- "http://api.scb.se/OV0104/v1/doris/sv/ssd/BE/BE0101/BE0101A/BefolkningNy"
query <- file.path(system.file(package = "pxweb"),
"extdata", "examples", "json_query_example.json")
px_data <- pxweb_get(url = url, query = query)
# Convert to data.frame
as.data.frame(px_data, column.name.type = "text", variable.value.type = "text")
# Get raw data
as.matrix(px_data, column.name.type = "code", variable.value.type = "code")
# Get data comments
pxweb_data_comments(px_data)
# Get jsonstat data
jstat <- query <- file.path(system.file(package = "pxweb"),
"extdata", "examples", "json-stat_query_example.json")
jstat_data <- pxweb_get(url = url, query = query)
# }
# NOT RUN {
# Get very large datasets (multiple downloads needed)
big_query <- file.path(system.file(package = "pxweb"),
"extdata", "examples", "json_big_query_example.json")
px_data <- pxweb_get(url = url, query = big_query)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab