提交: c76f538985ac6323d72345b18bad141d373d7e8f - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: c76f538985ac6323d72345b18bad141d373d7e8f (tree)
• 时间: 2022-07-27 23:09:41
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

Minor modifications to the code.

更改概述

• modified: R-codes/create_csv_sdmx.R

差异

diff -r c89389ba836f -r c76f538985ac R-codes/create_csv_sdmx.R
--- a/R-codes/create_csv_sdmx.R	Tue Jul 26 10:14:59 2022 +0200
+++ b/R-codes/create_csv_sdmx.R	Wed Jul 27 16:09:41 2022 +0200
@@ -31,7 +31,7 @@
 ## gdp <- readRDS("gdp.RDS")
 
 gdp <- read_excel("scb_data.xlsx", "gdp_ameco_long_format") %>%
-    clean_data %>%
+    clean_data() %>%
     rename("time_period"="expenditure_year",
            "obs_value"="gdp_eur_bn") %>%
     mutate(obs_value=obs_value*1e3) %>%
@@ -201,6 +201,9 @@
 
 
 write_csv(instruments, "CL_INST+COMP+2.1.csv")
+write_tsv(instruments, "CL_INST+COMP+2.1.tsv")
+
+
 
 df_instrument_fin <- df_instrument_up %>%
     ## left_join(y=instruments, by=c("aid_instrument_name"="name_en")) %>%
@@ -276,6 +279,10 @@
 
 write_csv(procedures, "CL_TYPE+COMP+2.1.csv") 
 
+write_tsv(procedures, "CL_TYPE+COMP+2.1.tsv") 
+
+
+
 df_procedure_fin <- df_procedure_up %>%
     ## left_join(y=procedures, by=c("procedure_name"="name_en")) %>%
     left_join(y=procedures, by=c("procedure_name"="NAME_en")) %>%
@@ -1297,6 +1304,25 @@
 write_tsv(objectives_revised_notified,"CL_OBJ_SCB_NOTIFIED+COMP+2.1.tsv")
 
 
+### creation of a DSD file.
+
+#See https://ec.europa.eu/eurostat/online-help/redisstat-admin/en/TECH_B_structural/#represent-a-dsd-in-tsv
+
+dsd_ini <- read_csv("dsd-template.csv")
+
+dsd_save <- dsd_ini |>
+    mutate(CONCEPT_SCHEME="CL_OBJ_SCB_NOTIFIED+ESTAT+2.1") |>
+    mutate(ID=recode(ID, "INDIC_DE"="CL_OBJ_SCB_NOTIFIED"),
+                     REPRESENTATION=recode(REPRESENTATION,
+                                          "INDIC_DE+ESTAT+1.0"="CL_OBJ_SCB_NOTIFIED+2.1" ))
+    
+    
+
+
+write_csv(dsd_save,"DSD_OBJ_SCB_NOTIFIED+COMP+2.1.csv")
+write_tsv(dsd_save,"DSD_OBJ_SCB_NOTIFIED+COMP+2.1.tsv")
+
+
 ####################################################################à
 ####################################################################à
 ####################################################################à
@@ -1407,6 +1433,26 @@
 
 
 
+dsd_case_type_save <- dsd_ini |>
+    mutate(CONCEPT_SCHEME="CL_OBJ_SCB+ESTAT+2.1") |>
+    mutate(ID=recode(ID, "INDIC_DE"="CL_OBJ_SCB"),
+                     REPRESENTATION=recode(REPRESENTATION,
+                                           "INDIC_DE+ESTAT+1.0"="CL_OBJ_SCB+2.1" )) |>
+    add_row(ID="CL_OBJ_SCB_TYPE",
+                     TYPE="DIMENSION",
+                     CONCEPT_SCHEME="CL_OBJ_SCB+ESTAT+2.1",
+                     CONCEPT_ID="INDIC_DE2",
+                     REPRESENTATION_TYPE="CODELIST",
+                     REPRESENTATION="CL_OBJ_SCB_TYPE+COMP+2.1",
+                     ATTRIBUTE_ATTACHMENT=NA,
+                     ATTRIBUTE_STATUS=NA
+                     )         
+    
+
+
+write_csv(dsd_case_type_save,"DSD_OBJ_SCB_OBJ+COMP+2.1.csv")
+write_tsv(dsd_case_type_save,"DSD_OBJ_SCB_OBJ+COMP+2.1.tsv")
+
 
 
 print("So far so good")