R/valid_atomic.R

Defines functions valid_atomic

valid_atomic <- function(x, name = "x") {
  if (!is.atomic(x) || !is.null(dim(x)))
    stop(name, " must be an (atomic) vector")
  invisible(x)
}
dannyparsons/naflex documentation built on Oct. 19, 2024, 3:13 a.m.