# custom list of undesirable functions:
# remove `sapply` (using `NULL`)
# add `cat` (with an accompanying message),
# add `print` (unnamed, i.e. with no accompanying message)
# add `source` (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[["source"]]
)
# list names of functions specified as undesirable
names(my_undesirable_functions)
Run the code above in your browser using DataLab