| 修订版 | 1abe54dd4fceedde62d1f25ca2c5a0552e148ecb (tree) |
|---|---|
| 时间 | 2022-10-13 01:49:30 |
| 作者 | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
I added also here some extra variables.
R-codes/process_tam_RO.R (diff)| @@ -138,10 +138,19 @@ | ||
| 138 | 138 | ## slice(6:nrow(.)) |
| 139 | 139 | |
| 140 | 140 | |
| 141 | +covid <- read_excel("SA-Covid19.xlsx") |> | |
| 142 | + clean_names() | |
| 143 | + | |
| 144 | + | |
| 141 | 145 | df.out <- df_temp |> |
| 142 | 146 | rename("aid_award_instrument"="aid_award_instrument_other_english") |> |
| 143 | 147 | select(any_of(nn)) |> |
| 144 | - mutate(beneficiary_country="Romania") | |
| 148 | + mutate(beneficiary_country="Romania") |> | |
| 149 | + mutate(nominal_value_extended_eur=nominal_aid_absolute_eur, | |
| 150 | + granted_value_extended_eur=granted_aid_absolute_eur, | |
| 151 | + is_covid_case=if_else(case_reference %in% covid$case_reference, "Yes", "No")) | |
| 152 | + | |
| 153 | + | |
| 145 | 154 | |
| 146 | 155 | save_excel(df.out, "romania_extra_tam.xlsx") |
| 147 | 156 |
Fork