if (FALSE) {
if (interactive()) {
# EXAMPLE1
}
}
if (FALSE) {
if (interactive()) {
# EXAMPLE1
}
}
code_runner <- function() {
oa <- bru_log_active(TRUE)
on.exit(bru_log_active(oa))
bru_log("Test message")
}
bru_log_active()
code_runner()
cat(bru_log_get())
bru_log_active()
Run the code above in your browser using DataLab