Blog post about mocking with testthat::with_mock - View it on GitHub