# \donttest{
# Parameter validation
nlag <- -1
if (nlag < 0) {
err <- tryCatch(
abort_validation(
"nlag must be >= 0",
param = "nlag",
value = nlag,
expected = "non-negative integer"
),
error = identity
)
inherits(err, "validation_error")
}
# }
Run the code above in your browser using DataLab