R eksempel med "API: Lag eget datasett" og http POST

options(encoding="UTF-8")
library(httr)

# henter rjstat bibliotek for behandling av JSON-stat
library(rjstat)
url <- "https://data.ssb.no/api/v0/no/table/09190"

# spørring fra konsoll - kan være på en linje
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-stat2"}}
'
d.tmp <- POST(url , body = data, encode = "json", verbose())

# Henter ut innholdet fra d.tmp som tekst deretter bearbeides av fromJSONstat
sbtabell <- fromJSONstat(content(d.tmp, "text"))

# Viser datasettet
sbtabell

# med versjon 1 av json-stat vil sbtabell være en liste. Slik hentes kun datasettet fra sbtabell
#ds <- sbtabell[[1]]
#ds


# Samme, men med bruk av biblioteket PxWebApiData og url over
library (PxWebApiData)
ApiData(url, 
        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)