Eurostat API - enkelt R eksempel med JSON-stat

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

library(httr)

# bruk rjstat pakken for JSON-Stat
library(rjstat)

# REST request mot Harmonisert Konsumprisindeks (HCPI) laget med Eurostat query builder https://wikis.ec.europa.eu/display/EUROSTATHELP/API+Statistics+-+data+query  
urlEurostat <- "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"
payload<-GET(url)

# hent innhold fra payload som text, ved C% bruke fromJSONstat i rjstat pakken
sbtable <- fromJSONstat(content(payload, "text"))

# Eurostat bruker JSON-stat versjon 2
sbtable

# Hent kode i stedet for tekst
sbtable_code <- fromJSONstat(content(payload, "text"), naming="id")

sbtable_code

#####
# Eksempelet over blir enklere med pakken PxWebApiData
#####

library(PxWebApiData)
# samme url som over
urlEurostat <- "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"


# få kode og tekst i hver sin dataframe
GetApiData(urlEurostat)

# kode og tekst sammen

sbtable_code_and_text <- GetApiData12(urlEurostat)
sbtable_code_and_text

# PxWebApiData gir også tilleggsinformasjon om datasettet, som sist oppdatert.
comment(sbtable_code_and_text)