# Create an assertion function that checks for both positive integers and even values
assert_string <- assert_create_chain(
assert_create(is.character, '{{arg_name}} must be a character'),
assert_create(function(x){{ length(x)==1 }}, '{{arg_name}} must be length 1')
)
# Use the assertion function to check a valid value
assert_string("String")
# Use the assertion function to check an invalid value
try({
assert_string(3)
# Output: Error: '3' must be a character
})
Run the code above in your browser using DataLab