if (FALSE) {
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')
}
Run the code above in your browser using DataLab