Commit: 0a0cdb768b1d74bd85e8aba705d0aff5d81b6ccf - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 0a0cdb768b1d74bd85e8aba705d0aff5d81b6ccf (tree)
• Time: 2021-12-02 22:34:12
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

A simple script to look for keywords in TAM.

Change Summary

• add: R-codes/search_tam_keywords.R

Incremental Difference

diff -r 679a9b6db3e6 -r 0a0cdb768b1d R-codes/search_tam_keywords.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R-codes/search_tam_keywords.R	Thu Dec 02 14:34:12 2021 +0100
@@ -0,0 +1,31 @@
+rm(list=ls())
+
+library(tidyverse)
+library(stringr)
+library(stringi)
+library(openxlsx)
+
+source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
+
+
+df_tam <- readRDS("/home/lorenzo/MEGA/work/COMP/stat_support/tam-clean/tam_cleaned_latest.RDS") %>%
+    mutate(beneficiary_country=recode(beneficiary_country,
+                                      "Czech Republic"="Czechia"))
+
+
+
+df_search <-  df_tam %>%
+    filter(beneficiary_country=="Italy")
+
+
+
+s1 <- df_search %>%
+    find_text_filter("(?i)colavita")
+    
+s2 <- df_search %>%
+    find_text_filter("(?i)favellato")
+
+
+save_excel(s1, "colavita.xlsx")
+
+print("So far so good")