# After running app and recording confessionals, run...
# Example from a saved timing file
library(readr)
path <- system.file(package = "survivoR", "extdata/US4412.csv")
df_us4412 <- read_csv(path)
get_confessional_timing(df_us4412, .vs = "US44", .episode = 12)
Run the code above in your browser using DataLab