R/is_something.R

is_single_character <- function (x) {
  is.character(x) && (length(x) == 1)
}

is_nonempty_character <- function (x) {
  is_single_character(x) && (nchar(x) > 0)
}
lbartnik/collection documentation built on May 20, 2019, 8:27 p.m.