Read .vtt
files into a data frame.
remotes::install_github("seankross/vtt")
library(tidyverse)
library(vtt)
setwd("OneDrive_2_6-16-2021")
transcripts <- data.frame(File = list.files(pattern = ".vtt")) %>%
mutate(DF = map(File, read_vtt)) %>%
unnest(cols = "DF") %>%
extract_speaker()
write_csv(transcripts, "transcription_vttfiles.csv")