Is object a scalar numeric vector

Returns TRUE if x is a scalar numeric (numeric vector of length 1).

Usage

is_scalar_numeric(x)

Arguments

x

The object to be tested.

Value

Scalar logical

Examples

#----------------------------------------------------------------------------
# is_scalar_numeric() examples
#----------------------------------------------------------------------------
library(bkbase)

# TRUE
is_scalar_numeric(1)
#> [1] TRUE
is_scalar_numeric(1L)
#> [1] TRUE
is_scalar_numeric(1.5)
#> [1] TRUE
is_scalar_numeric(NA_real_)
#> [1] TRUE
is_scalar_numeric(NA_integer_)
#> [1] TRUE

# FALSE
is_scalar_numeric(1:2)
#> [1] FALSE
is_scalar_numeric(numeric(0L))
#> [1] FALSE
is_scalar_numeric(NA)
#> [1] FALSE
is_scalar_numeric(as.Date("2024-10-01"))
#> [1] FALSE
is_scalar_numeric(factor("a"))
#> [1] FALSE
is_scalar_numeric(NULL)
#> [1] FALSE