tests/testthat/double_dependency_with_adaptation/independent.R

requireR(function() {
  x <- list(1, 2, 3, 5, 8)
  list(
    setStart = function(y) {
      x[[1]] <<- y
    },
    setEnd = function(y) {
      x[[length(x)]] <<- y
    },
    get = function() {
      x
    }
  )
})
petervdberg/requireR documentation built on May 25, 2019, 2:10 a.m.