R/id.r

In cownr10r/teachr: Tools for assessing student writing

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

id <- 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("ID[[:blank:]].*$", ., value = TRUE))
  return(h)
}