# NOT RUN {
# Create a condition inheriting from the s3 type "foo":
cnd <- new_cnd("foo")
# Signal the condition to potential handlers. This has no effect if no
# handler is registered to deal with conditions of type "foo":
cnd_signal(cnd)
# If a relevant handler is on the current evaluation stack, it will be
# called by cnd_signal():
with_handlers(cnd_signal(cnd), foo = exiting(function(c) "caught!"))
# Handlers can be thrown or executed inplace. See with_handlers()
# documentation for more on this.
# Note that merely signalling a condition inheriting of "error" is
# not sufficient to stop a program:
cnd_signal(cnd_error("my_error"))
# you need to use stop() to signal a critical condition that should
# terminate the program if not handled:
# stop(cnd_error("my_error"))
# }
Run the code above in your browser using DataLab