Enkelt R eksempel fra API:ferdige datasett

# Har du problem med ÆØÅ i R 4.2
# Sys.setlocale("LC_ALL","no_NB.utf8")

library(httr)

# henter rjstat bibliotek for behandling av JSON-stat
library(rjstat)

# Adresse til et ferdig json-stat datasett for Detaljomsetningsindeksen
url <- "https://data.ssb.no/api/v0/dataset/1066.json?lang=no"
d.tmp<-GET(url)
d.tmp

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

# Henter ut datasettet fra sbtabell
ds <- sbtabell[[1]]

# Viser datasettet
ds

# Barplott av den kjedelige sorten
barplot(ds$value, names.arg = ds$`tid`)

# ======
# Samme som over, men med varianter fra den anbefalte R-pakken PxWebApiData og url-en over

#to dataframes
library(PxWebApiData)
ApiData(url, getDataByGET = TRUE) 

#kun tekst
ApiData1(url, getDataByGET = TRUE) 

# kun koder 
ApiData2(url, getDataByGET = TRUE) 

# tekst og så kode i en og samme dataframe
ApiData12(url, getDataByGET = TRUE)