Существует также функция stub
в пакете mockery .Он похож на with_mock
, но также позволяет исключать примитивы и функции из базовых пакетов R.
Пример:
g = function(y) y
f = function(x) g(x) + 1
test_that('demonstrate stubbing', {
# before stubbing
expect_equal(f(1), 2)
# replace the function 'g' when called from 'f'
stub(f, 'g', function(...) 100)
expect_equal(f(1), 101)
})