R/all_integer.R

Defines functions all_integer

#' Check whether all elements of a vector are integer
#'
#' @param x a vector
#'
#' @return a logical value
#' @noRd
all_integer <- function(x) {
  sapply(x, function(x) x %% 1 == 0) %>%
    all()
}
henobe/flexoptr documentation built on March 11, 2021, 6:04 p.m.