Nothing
test_that("session info is omitted / included", {
skip_on_cran()
if (rlang::is_installed("sessioninfo")) {
regex <- "^sessioninfo::session_info"
} else {
regex <- "^sessionInfo"
}
input <- c("(y <- 1:4)", "mean(y)")
ret <- reprex(input = input)
expect_no_match(ret, regex)
ret <- reprex(input = input, session_info = TRUE)
expect_match(ret, regex, all = FALSE)
})
test_that("session info is folded for `venue = 'gh'`", {
skip_on_cran()
input <- c("(y <- 1:4)", "mean(y)")
ret <- reprex(input = input, session_info = TRUE, venue = "gh")
expect_match(ret, "<details.*>", all = FALSE)
expect_match(ret, "</details>", fixed = TRUE, all = FALSE)
})
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.