Is object a scalar factor vector

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

Usage

is_scalar_factor(x)

Arguments

x

The object to be tested.

Value

Scalar logical

Examples

#----------------------------------------------------------------------------
# is_scalar_factor() examples
#----------------------------------------------------------------------------
library(bkbase)

# TRUE
is_scalar_factor(factor("a"))
#> [1] TRUE
is_scalar_factor(factor("a", ordered = TRUE))
#> [1] TRUE
is_scalar_factor(factor(NA))
#> [1] TRUE

# FALSE
is_scalar_factor(factor(c("a", "b")))
#> [1] FALSE
is_scalar_factor(factor())
#> [1] FALSE
is_scalar_factor("a")
#> [1] FALSE
is_scalar_factor(NULL)
#> [1] FALSE