Nothing
testthat::context("Evaluate")
testthat::test_that("", {
e <- new.env(parent = environment())
fname <- system.file("Introduction.plain", package = "REPLesentR")
file.copy(fname, tfname <- tempfile(fileext = ".plain"))
slideDeck <- SlideDeck()$new(Read()$auto(tfname, quiet = TRUE))
evaluate <- Evaluate(e, quiet = TRUE)
evaluate$slideDeck(slideDeck)
l <- as.list(e, all.names = TRUE)
testthat::expect_true(all(c("hi", ".fileName") %in% names(l)))
testthat::expect_true(l$hi == "Hi\n")
})
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.