# NOT RUN {
if (interactive()) {
# EXAMPLE1
}
# }
# NOT RUN {
if (interactive()) {
# EXAMPLE1
}
# }
# NOT RUN {
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