Nothing
context("Test that the environment works")
test_that("parent environment is correct",{
skip_on_os("solaris")
f <- dparse(system.file("tran.g", package="dparser"))
env <- new.env();
env$test <- "found";
f("
b = -1
d/dt(X) = a*X + Y*Z;
d/dt(Y) = b*(Y - Z);
d/dt(Z) = -X*Y + c*Y - Z
if (t < 0.02 | t > 99.98){
print
}
", function(name, value, pos, depth){
expect_true(any(ls(envir=parent.frame(1)) == "test"));
## cat(sprintf("name:%s;value:%s;pos:%s;depth:%s\n", name, value, pos, depth));
}, envir=env)})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.