add script to pull emails from registrant csv

UF-Carpentry · Sep 26, 2019 · 9b02201 · 9b02201
1 parent 1e5ecef
commit 9b02201
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/gainesville/extract_emails.R b/gainesville/extract_emails.R
@@ -0,0 +1,15 @@
+library(tidyverse)
+
+xx <- read_csv("Participant_List_Formatted (3).csv")
+pattern <- "\\n([a-zA-Z0-9.]+@[a-zA-Z0-9.]+(com|edu|org))"
+
+yy <- purrr::map(xx, function(v) {
+    str_match(v, pattern)[, 2] %>%
+        na.omit()
+    })
+
+emails <- do.call(c, yy)
+names(emails) <- NULL
+
+paste0(emails, collapse = ", ") %>%
+    write(file = "addresses.txt")