R/is.dp.R

In trinker/qdap2: Bridging the gap between qualitative data and quantitative analysis

#is.dp (double punctuation) internal function for checking/warning 
#extra punctuation
is.dp <- function(text.var) {
  punct <- c(".", "?", "!", "|")
  any(sapply(strsplit(text.var, NULL), function(x) {
    sum(x %in% punct) > 1
  }
  ))
}