diff --git a/data-raw/DATASET.R b/data-raw/DATASET.R index 2aebdb69c28a43b709865395a07ae3ddb70b19a9..76b710b22e0d346bca9964eca7e82ad82fb6801d 100644 --- a/data-raw/DATASET.R +++ b/data-raw/DATASET.R @@ -149,4 +149,21 @@ no.regiontabell.kmn = function(){ regref_fylke <- no.regiontabell.flk() regref_kommune <- no.regiontabell.kmn() -usethis::use_data(regref_kommune, regref_fylke, overwrite = T) +## KPI +#metadt <- PxWebApiData::ApiData("http://data.ssb.no/api/v0/no/table/08981", returnMetaData = TRUE) + + + +#metadt <- PxWebApiData::ApiData("http://data.ssb.no/api/v0/no/table/03014", returnMetaData = TRUE) +pxdt_t03014 <- PxWebApiData::ApiData("http://data.ssb.no/api/v0/no/table/03014", + Konsumgrp = "TOTAL", + Tid = T, + ContentsCode = "KpiAar") +kpi_t03014 <- + dplyr::as.tbl(pxdt_t03014[[1]]) %>% + dplyr::select(., -konsumgruppe, -statistikkvariabel) %>% + dplyr::rename(., kpi = value) + + + +usethis::use_data(regref_kommune, regref_fylke, kpi_t03014, overwrite = T)