R/nchar_upper_letter.R

In patelm9/caterpillaR:

Defines functions nchar_upper_letter

Documented in nchar_upper_letter

#' Get number of uppercase letters
#' @export
nchar_upper_letter <-
        function(vector) {
                nchar(gsub("[^A-Z]", "", as.character(vector)))
        }