R/testModule.R

In modules: Self Contained Units of Source Code

Defines functions TestModule2 TestModule1

# File with test modules to test scoping inside a package.

TestModule1 <- function(a) module({
  foo <- identity
  b <- a
})

TestModule2 <- function() module(topEncl = baseenv(), {
  c <- 3
  expose(TestModule1(c))
  tm1 <- use(TestModule1)(c)
})

Try the modules package in your browser