Query on statline

statline.R

opendata_service <- ODataQuery$new("http://beta-odata4.cbs.nl/")

entity_datasets <- opendata_service$path("Datasets")$select("Identifier", "Title")
datasets        <- entity_datasets$all(simplifyVector = TRUE)
head(datasets)

entity_81589NED  <- opendata_service$path("CBS")$path("81589NED")$path("Observations")
dataset_81589NED <- entity_81589NED$all(simplifyVector = TRUE)
head(dataset_81589NED)

Same result, little rephrasing:

entity_81589NED  <- opendata_service$path("CBS", "81589NED", "Observations")
dataset_81589NED <- entity_81589NED$all(simplifyJSON = TRUE)