if (FALSE) {
x <- with_loggit(5L + 5L)
with_loggit(base::message("Test log message"))
with_loggit(base::warning("Test log message"), echo = FALSE, logfile = "my_log.log")
x <- with_loggit({
y <- 5L
base::message("Test log message")
base::warning("Test log message")
1L + y
})
}
Run the code above in your browser using DataLab