R/list_poems.R

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

Defines functions list_poems

Documented in list_poems

list_poems <- function() {
  dirname <- paste(system.file("extdata", package = "DickinsonPoems"))
  curdir <- getwd()
  stopifnot(dir.exists(dirname))
  setwd(dirname)
  poems <- list.files()
  setwd(curdir)
  return(poems)
}