library(logr)
# Create temp file location
tmp <- file.path(tempdir(), "test.log")
# Open log
lf <- log_open(tmp)
# Send message to log
log_print("Before suspend")
# Suspend log
log_suspend()
# View suspended log
writeLines(readLines(lf))
# Resume log
log_resume(lf)
# Print data to log
log_print("After suspend")
# Close log
log_close()
# View results
writeLines(readLines(lf))
Run the code above in your browser using DataLab