tests/testthat/helper-log-output.R

In zatonovo/futile.logger: A Logging Utility for R

# This file is automatically sourced by testthat for each test file
# This is best practice for testthat and also enables testing during package development in RStudio
#
# See also:
# https://github.com/zatonovo/futile.logger/issues/99
# https://stackoverflow.com/a/41777777/

get_log_output <- function(expr) {
  o <- evaluate_promise(expr)
  o$message
}