Commit: 4d45b9364cd538879a3045eee9c03444c8324821 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 4d45b9364cd538879a3045eee9c03444c8324821 (tree)
• Tiempo: 2023-05-04 00:25:25
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

Now I also recode the instruments.

Cambiar Resumen

• modified: R-codes/read_polish_tam_new.R

Diferencia incremental

diff -r 149f52fc5c39 -r 4d45b9364cd5 R-codes/read_polish_tam_new.R
--- a/R-codes/read_polish_tam_new.R	Wed May 03 13:59:31 2023 +0200
+++ b/R-codes/read_polish_tam_new.R	Wed May 03 17:25:25 2023 +0200
@@ -6,7 +6,7 @@
 library(stringr)
 library(lubridate)
 library(RJSDMX)
-library(haven)
+## library(haven)
 library(arrow)
 
 
@@ -142,30 +142,34 @@
 
 
 
-aid_instr_new <- c(
-"Interest subsidy",
-"Direct grant/ Interest rate subsidy",
-"Guarantee",
-"Other",
-"Soft loan",
-"Other forms of tax advantage",
-"Other forms of tax advantage",
-"Other",
-"Other",
-"Other forms of tax advantage",
-"Loan/ Repayable advances",
-"Loan/ Repayable advances",
-"Direct grant/ Interest rate subsidy",
-"Other",
-"Other forms of tax advantage",
-"Other forms of tax advantage",
-"Soft loan",
-"Provision of risk capital",
-"Repayable advances",
-"Other",
-"Direct grant",
-"Tax advantage or tax exemption"
-)
+## aid_instr_new <- c(
+## "Interest subsidy",
+## "Direct grant/ Interest rate subsidy",
+## "Guarantee",
+## "Other",
+## "Soft loan",
+## "Other forms of tax advantage",
+## "Other forms of tax advantage",
+## "Other",
+## "Other",
+## "Other forms of tax advantage",
+## "Loan/ Repayable advances",
+## "Loan/ Repayable advances",
+## "Direct grant/ Interest rate subsidy",
+## "Other",
+## "Other forms of tax advantage",
+## "Other forms of tax advantage",
+## "Soft loan",
+## "Provision of risk capital",
+## "Repayable advances",
+## "Other",
+## "Direct grant",
+## "Tax advantage or tax exemption"
+## )
+
+
+aid_instr_new <- read_csv("instruments.csv") |>
+    pull(Interpretation)
 
 
 aid_instr <- df_sel |>
@@ -207,8 +211,8 @@
 
 df_sel2 <- df_sel |>
     mutate(aid_award_ga_original=df_ini$udzielajacy_nazwa) |>
-    ## mutate(aid_award_instrument=recode_many(aid_award_instrument, aid_instr,
-    ##                                         aid_instr_new)) |>
+    mutate(aid_award_instrument=recode_many(aid_award_instrument, aid_instr,
+                                            aid_instr_new)) |>
     mutate(beneficiary_type=if_else(beneficiary_type %in% c("0","1","2"),
                                     "Small and medium-sized enterprises",
                                     "Only large enterprises")) |>