R/utils_helpers.R

In zettsu-t/nbinomPlot: Plot negative binomial distributions interactively

#' Check a variable is a non-NA single-element number.
#'
#' @param x a variable to check
#'
#' @return TRUE if x is a non-NA single-element number, FALSE otherwise.
is_numeric <- function(x) {
  is.vector(x) &&
    (NROW(x) == 1) &&
    is.numeric(x) &&
    !is.na(x)
}