add way to say urls in tweets as rds

analysis/links-in-tweets.R

@@ -427,6 +427,10 @@ urls_total <- urls_total %>% mutate(
 
 urls_total <- simplify_classyfy_domains(urls_total)
 
+# Save data -----------
+saveRDS(urls_total, file = paste0("data/output/",case_path ,"/",case_path,"_",period_path,"_urls_total.rds"))
+
+
 domain_type <- urls_total %>% filter( domain != "0" & !is.na(domain) ) %>% group_by(domain_type) %>% summarise(
   count = n()
 ) %>% arrange(-count)