R/type.r

In cownr10r/teachr: Tools for assessing student writing

#' finds essay type in a folder of texts read into readtext
#' @param b path to file folder with multiple .docx essays.
#' @return a list with essay type (viz. on demand, range of writing, etc.)
#' @export

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