R/sentensize.R

In neonira/wyz.code.rdoc: Wizardry Code Offensive Programming R Documentation

sentensize <- function(x_s, ...) {
  s <- normalizeSpaces(paste(x_s, ...))
  sapply(s, function(p) {
    n <- nchar(p)
    if (n == 0) return(p)
    last <- substr(p, n, n)
    if (last != '.') p <- paste0(p, '.')
    first <- substr(p, 1, 1)
    paste0(toupper(first), substring(p, 2))
  }, USE.NAMES = FALSE)
}