R/getScriptLines.R

In lockedata/TextAnalysis: Code for Locke Data Text Analysis Training

#' Get Monty Python script lines
#'
#' @param offline Use an offline copy instead of fetching data
#' @return data.frame of lines from Monty Python scripts
#' @export
#'
#' @examples
#' head(getScriptLines(offline=TRUE))
getScriptLines<-function(offline=FALSE){
  if(offline) return(scriptLines)
  getScriptData() %>%
    tidytext::unnest_tokens(lines,ScriptText,token="lines",collapse = TRUE) %>%
    dplyr::filter(lines!="") %>%
    dplyr::mutate(lineid=dplyr::row_number(lines)) %>%
    dplyr::mutate(Speech = stringr::str_detect(lines,stringr::fixed(":"))) %>%
    dplyr::mutate(Action=stringr::str_detect(lines,stringr::fixed("["))) %>%
    dplyr::mutate(Character=stringr::str_extract(lines,"^(.+)\\b\\:")) %>%
    dplyr::mutate(Character=stringr::str_replace(Character,stringr::fixed(":"),"")) %>%
    dplyr::mutate(lines=stringr::str_replace(lines,"^(.+)\\:","")) %>%
    dplyr::select(dplyr::ends_with("id"),dplyr::everything())

}