Nothing
tests/testthat/test-wrap.R
In withr: Run Code 'With' Temporarily Modified Global State
test_that("wrap works", {
v <- c(0, 0, 0)
set <- function(x) v[2] <<- x
f <- wrap(set, v[1] <<- v[1] + 1, v[3] <<- v[3] + 3)
expect_equal(v, c(0, 0, 0))
f(2)
expect_equal(v, 1:3)
})
Try the withr package in your browser
Any scripts or data that you put into this service are public.
withr documentation built on Nov. 2, 2023, 5:24 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("wrap works", {
v <- c(0, 0, 0)
set <- function(x) v[2] <<- x
f <- wrap(set, v[1] <<- v[1] + 1, v[3] <<- v[3] + 3)
expect_equal(v, c(0, 0, 0))
f(2)
expect_equal(v, 1:3)
})
Try the withr package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.