KV4: Daten für Export anpassen und exportieren

statistikZH · Oct 11, 2024 · ca422fe · ca422fe
1 parent 0f30824
commit ca422fe
Show file tree

Hide file tree

Showing 3 changed files with 193 additions and 3 deletions.
diff --git a/R/export_data.R b/R/export_data.R
@@ -10,7 +10,7 @@ export_data <- function(ds, interactive = TRUE){
 
   # expected_variables <- c("Jahr", "Gebiet", "Indikator_ID", "Indikator_Name", "Variable", "Wert", "Einheit", "Datenquelle")
   # conditionally define expected_variables -> M2/M4 with additional attribute "gruppe"
-  expected_variables <- if (any(ds$dataset_id %in% c("M2", "M4"))) {
+  expected_variables <- if (any(ds$dataset_id %in% c("M2", "M4", "KV4"))) {
     c("Jahr", "Gebiet", "Indikator_ID", "Indikator_Name", "Gruppe", "Variable", "Wert", "Einheit", "Datenquelle")
   } else {
     c("Jahr", "Gebiet", "Indikator_ID", "Indikator_Name", "Variable", "Wert", "Einheit", "Datenquelle")