How to test functions that use sink(type = “message”) with testthat

Question

Within an R package I wrote a function that redirects all output from a sourced script to a log file using

sink(file = &