if (FALSE) {
DATA$person <- as.character(DATA$person)
DATA$person[c(1, 4, 6)] <- c("greg, sally, & sam",
"greg, sally", "sam and sally")
split_speaker(DATA)
DATA$person[c(1, 4, 6)] <- c("greg_sally_sam",
"greg.sally", "sam; sally")
split_speaker(DATA, sep = c(".", "_", ";"))
DATA <- textshape::DATA #reset DATA
}
Run the code above in your browser using DataLab