Check Inherits from S4 Class — chk_s4_class • chk

Checks inherits from S4 class using

isS4(x) && methods::is(x, class)

Usage

chk_s4_class(x, class, x_name = NULL)

vld_s4_class(x, class)

Arguments

x: The object to check.
class: A string specifying the class.
x_name: A string of the name of object x or NULL.

Value

The chk_ function throws an informative error if the test fails or returns the original object if successful so it can used in pipes.

The vld_ function returns a flag indicating whether the test was met.

Functions

vld_s4_class(): Validate Inherits from S4 Class

See also

Other chk_is: chk_array(), chk_atomic(), chk_data(), chk_function(), chk_is(), chk_matrix(), chk_numeric(), chk_s3_class(), chk_vector(), chk_whole_numeric()

Examples

# chk_s4_class
try(chk_s4_class(1, "numeric"))
#> Error in eval(expr, envir, enclos) : 
#>   `1` must inherit from S4 class 'numeric'.
chk_s4_class(getClass("MethodDefinition"), "classRepresentation")
# vld_s4_class
vld_s4_class(numeric(0), "numeric")
#> [1] FALSE
vld_s4_class(getClass("MethodDefinition"), "classRepresentation")
#> [1] TRUE