test_that("can't see environment of caller", {
skip_on_cran()
z <- "don't touch me"
ret <- reprex(z)
expect_match(ret, "object 'z' not found", all = FALSE)
})
test_that("reprex doesn't write into environment of caller", {
skip_on_cran()
z <- "don't touch me"
ret <- reprex((z <- "I touched it!"), advertise = FALSE)
expect_identical(ret[3], "#> [1] \"I touched it!\"")
expect_identical(z, "don't touch me")
## concrete example I have suffered from:
## assign object to name of object inside reprex_impl()
expect_match(reprex(r_file <- 0L), "r_file <- 0L", all = FALSE)
})
test_that("reprex env doesn't bear traces of reprex or its dependencies", {
skip_on_cran()
ret <- reprex(input = c("a <- 'a'", "ls(all.names = TRUE)"))
ret <- ret[grepl("^#>", ret)]
# https://github.com/r-lib/debugme/issues/50
# styler --> tibble --> pillar --> debugme --> tickles RNG
pkg <- "debugme"
if (requireNamespace(pkg, quietly = TRUE)) {
# until debugme updates on CRAN, let's tolerate .Random.seed, but not
# require it either
expect_match(ret, '"a"', all = FALSE)
} else {
expect_identical(ret, "#> [1] \"a\"")
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.