Commit: 9eca22cd1b5f73c70433a4e30dbfbbc613a1260d - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 9eca22cd1b5f73c70433a4e30dbfbbc613a1260d (tree)
• Tiempo: 2022-11-18 20:04:43
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I fixed the rules for the covid cases and the nominall values.

Cambiar Resumen

• modified: R-codes/clean_spanish_tam.R
• modified: R-codes/process_tam_RO.R
• modified: R-codes/read_polish_tam_new.R

Diferencia incremental

diff -r e3101494ad74 -r 9eca22cd1b5f R-codes/clean_spanish_tam.R
--- a/R-codes/clean_spanish_tam.R	Thu Nov 17 13:19:18 2022 +0100
+++ b/R-codes/clean_spanish_tam.R	Fri Nov 18 12:04:43 2022 +0100
@@ -57,7 +57,9 @@
     mutate(across(contains("date"), ~dmy(.x)))|>
     mutate(nominal_value_extended_eur=nominal_aid_absolute_eur,
            granted_value_extended_eur=granted_aid_absolute_eur,
-           is_covid_case=if_else(case_reference %in% covid$case_reference, "Yes", "No"))
+           is_covid_case=if_else(case_reference %in% covid$case_reference, "Yes", "No"))|>
+    mutate(granted_value_extended_eur=if_else(is_covid_case=="No", granted_value_extended_eur, NA_real_))
+
 
 
     

diff -r e3101494ad74 -r 9eca22cd1b5f R-codes/process_tam_RO.R
--- a/R-codes/process_tam_RO.R	Thu Nov 17 13:19:18 2022 +0100
+++ b/R-codes/process_tam_RO.R	Fri Nov 18 12:04:43 2022 +0100
@@ -148,7 +148,8 @@
     mutate(beneficiary_country="Romania") |>
     mutate(nominal_value_extended_eur=nominal_aid_absolute_eur,
            granted_value_extended_eur=granted_aid_absolute_eur,
-           is_covid_case=if_else(case_reference %in% covid$case_reference, "Yes", "No"))
+           is_covid_case=if_else(case_reference %in% covid$case_reference, "Yes", "No")) |>
+    mutate(granted_value_extended_eur=if_else(is_covid_case=="No", granted_value_extended_eur, NA_real_))
 
 
 

diff -r e3101494ad74 -r 9eca22cd1b5f R-codes/read_polish_tam_new.R
--- a/R-codes/read_polish_tam_new.R	Thu Nov 17 13:19:18 2022 +0100
+++ b/R-codes/read_polish_tam_new.R	Fri Nov 18 12:04:43 2022 +0100
@@ -89,7 +89,10 @@
            is_covid_case=if_else(case_reference %in% covid$case_reference, "Yes", "No")) |>
     mutate(main_procedure_type_code=as.character(main_procedure_type_code)) |>
     mutate(national_identification=as.character(national_identification),
-           beneficiary_type=as.character(beneficiary_type))
+           beneficiary_type=as.character(beneficiary_type))|>
+    mutate(granted_value_extended_eur=if_else(is_covid_case=="No", granted_value_extended_eur, NA_real_))
+
+