Nothing
## ----include = FALSE----------------------------------------------------------
library(knitr)
library(PxWebApiData)
options(max.print = 36)
# Re-define the comment function to control line width and minimize excessive line breaks when printing.
comment <- function(x) {
com <- base::comment(x)
nchar_name <- min(103, 2 + max(nchar(com)))
for (name in names(com)) {
cat(strrep(" ", max(0, (nchar_name - nchar(name)))),
name,
"\n",
strrep(" ", max(0, (nchar_name - nchar(com[[name]]) - 2))),
"\"",
com[[name]],
"\"", "\n", sep = "")
}
}
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
ApiData("http://data.ssb.no/api/v0/en/table/04861",
Region = c("1103", "0301"), ContentsCode = "Bosatte", Tid = c(1, 2, -2, -1))
## ----include = FALSE----------------------------------------------------------
options(max.print = 75)
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
ApiData12("http://data.ssb.no/api/v0/en/table/04861",
Region = c("1103", "0301"), ContentsCode = "Bosatte", Tid = c(1, 2, -2, -1))
## ----include = FALSE----------------------------------------------------------
options(max.print = 45)
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
x <- ApiData("http://data.ssb.no/api/v0/en/table/04861",
Region = FALSE, ContentsCode = TRUE, Tid = 3i)
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
x[[1]]
x[[2]]
## ----comment=NA---------------------------------------------------------------
comment(x)
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
ApiData("http://data.ssb.no/api/v0/en/table/04861", returnMetaFrames = TRUE)
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
ApiData("http://data.ssb.no/api/v0/no/table/07459",
Region = list("agg:KommSummer", c("K-3101", "K-3103")),
Tid = 4i,
Alder = list("agg:TodeltGrupperingB", c("H17", "H18")),
Kjonn = TRUE)
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
Region = list("vs:Fylker",c("01","02"))
Region = list(c("01","02"))
## ----eval=TRUE, tidy = FALSE, comment=NA--------------------------------------
ApiData("http://data.ssb.no/api/v0/en/table/04861", returnApiQuery = TRUE)
## ----eval=TRUE, comment=NA, tidy=FALSE----------------------------------------
x <- GetApiData("https://data.ssb.no/api/v0/dataset/934516.json?lang=en")
x[[1]]
comment(x)
## ----eval=TRUE, tidy = FALSE, comment=NA, encoding = "UTF-8"------------------
urlEurostat <- paste0( # Here the long url is split into several lines using paste0
"https://ec.europa.eu/eurostat/api/dissemination/statistics/1.0/data/prc_hicp_mv12r",
"?format=JSON&lang=EN&lastTimePeriod=2&coicop=CP00&geo=NO&geo=EU")
urlEurostat
GetApiData12(urlEurostat)
## ----comment=NA, encoding = "UTF-8"-------------------------------------------
library(PxWebApiData)
## ----comment=NA, encoding = "UTF-8"-------------------------------------------
variables <- ApiData("https://data.ssb.no/api/v0/no/table/07964/",
returnMetaFrames = TRUE)
names(variables)
## ----comment=NA, encoding = "UTF-8"-------------------------------------------
values <- ApiData("https://data.ssb.no/api/v0/no/table/07964/",
returnMetaData = TRUE)
values[[1]]$values
values[[2]]$values
values[[3]]$values
## ----comment=NA, encoding = "UTF-8"-------------------------------------------
mydata <- ApiData("https://data.ssb.no/api/v0/en/table/07964/",
Tid = c("2021", "2022"), # Define year to 2021 and 2022
NACE2007 = "G-N", # Define the services sector
ContentsCode = c("KvinneligFoUpers")) # Define women R&D personell
mydata <- mydata[[1]] # Extract the first list element, which contains full variable names.
head(mydata)
## ----comment=NA, encoding = "UTF-8"-------------------------------------------
comment(mydata)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.