setup <- metaAction({
library(stats)
"# Set the seed to ensure repeatable randomness"
set.seed(100)
x <- 1
y <- 2
})
# The action has executed
print(x)
print(y)
# And also you can emit the code
expandChain(
setup()
)
Run the code above in your browser using DataLab