Closed ctsolomon closed 2 years ago
I just made a note to correct this when I update the crew table this year.
A few additions/edits:
library(tidyverse)
crew<- dbTable("CREW")
crew$lastname<- gsub("Caffareli","Caffarelli",crew$lastname)
crew<- crew %>%
add_column(fullname = paste(crew$firstname, crew$lastname,sep=" ")) %>%
mutate(affiliation = case_when(fullname == "Claire Stevens" ~ "St. Norbert College",
fullname %in% c("Henri Chung",
"John Caffarelli",
"Ana Lopez",
"Katherine Franz",
"Faith Taylor",
"Gabriella Marines-Chio",
"Noah Gonring",
"Jack Boyle") ~ "University of Notre Dame",
TRUE ~ affiliation)) %>%
filter(!(fullname=="Katherine Conese" & year=="2020" & semester == "Spring")) %>%
select(colnames(dbTable("CREW")))
Plus, the 2021 crew updates: CREW_updates2021.xlsx
In CREW table, should correct name entry for year==2016, firstname=='Natalie'. Correct firstname should be 'Nathalie', and lastname should be 'Chehab'.