tests/testthat/test_S.R

context("S function")

x = 3
f = function() x^2
g = function() {
    x = 10
    S(f())
}

expect_equal(g(), 100)
expect_equal(f(), 9)
expect_equal(S(f()), 9)
JonasMoss/SPQR documentation built on Oct. 30, 2019, 7:58 p.m.