old <- logger:::namespaces_set()
log_threshold(TRACE)
log_trace("Logging everything!")
x <- with_log_threshold(
{
log_info("Now we are temporarily suppressing eg INFO messages")
log_warn("WARN")
log_debug("Debug messages are suppressed as well")
log_error("ERROR")
invisible(42)
},
threshold = WARN
)
x
log_trace("DONE")
logger:::namespaces_set(old)
Run the code above in your browser using DataLab