R/is.R

In stla/mapR: What the Package Does in One 'Title Case' Line

Defines functions isPositiveInteger isCharacterVector isNumericVector isString isBoolean isVector isScalar

isScalar <- function(x){
  is.null(dim(x)) && length(x) == 1L && !is.na(x)
}

isVector <- function(x){
  is.null(dim(x)) && !any(is.na(x))
}

isBoolean <- function(x){
  is.logical(x) && isScalar(x)
}

isString <- function(x){
  is.character(x) && isScalar(x)
}

isNumericVector <- function(x){
  is.numeric(x) && isVector(x)
}

isCharacterVector <- function(x){
  is.character(x) && isVector(x)
}

isPositiveInteger <- function(x){
  is.numeric(x) && isScalar(x) && floor(x) == x
}