R/titles.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 titles
#' @export

titles <- 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("^\\x{003C}.*{2,12}\\x{003E}$", ., value = TRUE))
 return(h)
}