R/sentence_parser.R

In AdamSpannbauer/lexRankr: Extractive Summarization of Text with the LexRank Algorithm

#' Utility to parse sentences from text

#' @description Utility to parse sentences from text; created to have a central shared sentence parsing function
#' @param text Character vector to be parsed into sentences
#' @return A list with length equal to `length(text)`; list elements are character vectors of text parsed with sentence regex

sentence_parser <- function(text) {
  strsplit(x = text, 
           split = "(?<!\\w\\.\\w.)(?<![A-Z][a-z]\\.)(?<=\\.|\\?|\\!)\\s",
           perl=TRUE)
}