options(encoding="UTF-8") library(httr) # use rjstat JSON-stat library library(rjstat) # url for POST (This one is from Quarterly National Accounts) url <- "https://data.ssb.no/api/v0/en/table/09190" # Query, can be copied from API Console data <- ' {"query":[{"code":"Makrost","selection":{"filter":"item","values":["koh.nrpriv","koo.nroff","bif.nr83_6","makrok.nrianv","eks.nrtot","imp.nrtot","bnpb.nr23_9","bnpb.nr23_9fn","bnpb.nr23oljsj"]}}, {"code":"ContentsCode","selection":{"filter":"item","values":["Priser","Faste","PriserSesJust"]}}, {"code":"Tid","selection":{"filter":"top","values":["8"]}}], "response":{"format":"json-stat"}} ' # post query d.tmp <- POST(url , body = data, encode = "json", verbose()) # Get content from d.tmp as text, using fromJSONstat sbtabell <- fromJSONstat(content(d.tmp, "text")) # if json-stat2, just list sbtabell # sbtabell # If json-stat (version 1) get only dataset from sbtable ds <- sbtabell[[1]] # Show dataset ds #Same as above, but using Cran-package PxWebApiData-package 5.0 library (PxWebApiData) ApiData("http://data.ssb.no/api/v0/en/table/09190", ContentsCode = c("Priser","Faste","PriserSesJust"), Makrost = c("koh.nrpriv","koo.nroff","bif.nr83_6","makrok.nrianv","eks.nrtot","imp.nrtot","bnpb.nr23_9","bnpb.nr23_9fn","bnpb.nr23oljsj"), Tid = 8i, returnDataSet = 1) x