# custom list of undesirable functions:
# remove sapply (using NULL)
# add cat (with a accompanying message),
# add print (unnamed, i.e. with no accompanying message)
# add return (as taken from all_undesirable_functions)
my_undesirable_functions <- modify_defaults(defaults = default_undesirable_functions,
sapply=NULL, "cat"="No cat allowed", "print", all_undesirable_functions[["return"]])
Run the code above in your browser using DataLab