R/scalar.R

is_scalar <- function(object, class) {
  length(object) == 1 && inherits(object, class)
}

is_string <- function(object) {
  is.character(object) && length(object) == 1
}
slopp/renv documentation built on July 6, 2019, 12:08 a.m.