Skip to contents

Validation - If object is of prototype

assert_ptype.Rd

This function wraps is_ptype() and aborts with a custom message if the check fails. It is useful for testing function arguments.

Usage

assert_ptype(
  ptype,
  ...,
  args_ptype = list(),
  msg = NULL,
  x_names = NULL,
  env = caller_env(),
  args_cnd = list()
)

Arguments

ptype

[any] The prototype to check against. See is_ptype() for details on what is a prototype.

...

[any each] Objects to check.

args_ptype

[list()] Additional arguments to pass to is_ptype().

msg

[character(1) | NULL] The message to use if the check fails. If NULL, a default message is generated.

x_names

[character() | NULL] The names of ... to print in messages. If NULL, the name is inferred from ...'s expressions.

env

[environment() | call() | NULL | missing_arg()] The call to inform as the origin of the error, passed to rlang::abort():

  • An environment in the call stack or a hard-coded defused call.

  • NULL for no information.

  • missing_arg() to use the assert function itself.

  • The default is caller_env(), to display the function where the assertion was called.

args_cnd

[list()] Additional arguments passed to cli::cli_abort().

Value

[list(...)] invisible(list(...)), or aborts if the check fails.

Examples

try({
  f <- \(x) test_ptype(x, numeric())
  f("a")
})
#> Error in test_ptype(x, numeric()) : could not find function "test_ptype"
#> Error in `f()`:
#> ! Argument `x` is not of prototype `numeric()`.