Workshop 4 - October, 4

pacman::p_load(readr)
pacman::p_load(stringr)
pacman::p_load(lubridate)

raw_cast <- read.csv("raw_cast.csv")
str(raw_cast)

cast_revised <- str_split_fixed(raw_cast$Name.2, "\n", 2)
class(cast_revised)

[1] "matrix" "array" 

raw_cast$Name2 <- cast_revised[,1]
raw_cast$Episode <- cast_revised[,2]

str_trim(raw_cast$Episode, side="both")