R/get_poem.R

In Amherst-Statistics/DickinsonPoems: Ingest Emily Dickinson poems (using Project Gutenberg version)

Defines functions get_poem

Documented in get_poem

get_poem <- function(poem) {
  filename <- paste(system.file("extdata", package = "DickinsonPoems"), 
                  poem, sep = "/") 
  stopifnot(file.exists(filename))
  poemLines <- readLines(filename)
  return(poemLines)
}