data-raw/put-Grattan-staff.R

library(data.table)
Grattan_staff <-
  fread("./data-raw/Grattan_staff.tsv", fill = TRUE) %>%
  .[, email_address := paste0(gsub(" ", ".", name, fixed = TRUE), "@grattan.edu.au")]
HughParsonage/grattanReporter documentation built on May 7, 2019, 5:02 a.m.