R/filenames.R

In cownr10r/teachr: Tools for assessing student writing

#' finds titles in a folder of texts read into readtext
#' @param b path to file folder with multiple .docx essays.
#' @return a list with filenames
#' @export

filename <- function(b){
  d <- readtext::readtext(b)
  e <- d$text
  f <- purrr::map(e, ~strsplit(., "\\n")) # split by new space
  g <- purrr::map(f, ~unlist(.)) # get it into s aimpler list of lists
  #h <- purrr::map(g, ~grep("^File[[:blank:]]Name\\x{58}[[:blank:]].*$", ., value = TRUE))
  h <- purrr::map(g, ~grep("^File[[:blank:]]Name.*$", ., value = TRUE))
  return(h)
}