From 7b1a34ccb892fbd72cc314edae73084629a4d244 Mon Sep 17 00:00:00 2001
From: Helmer Belbo <Helmer.Belbo@nibio.no>
Date: Fri, 27 Mar 2020 07:17:31 +0100
Subject: [PATCH] Adding KPI table to the playground
---
data-raw/DATASET.R | 19 ++++++++++++++++++-
1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/data-raw/DATASET.R b/data-raw/DATASET.R
index 2aebdb6..76b710b 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)
--
GitLab