test_that("is_rstudio", {
expect_false(is_rstudio())
mockery::stub(is_rstudio, "loadedNamespaces", "rstudioapi")
mockery::stub(is_rstudio, "rstudioapi::isAvailable", TRUE)
expect_true(is_rstudio())
})
test_that("view_image_in_rstudio", {
dir.create(tmp <- tempfile())
path2 <- file.path(tmp, "out.html")
on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
path <- NULL
on.exit(unlink(path), add = TRUE)
mockery::stub(
view_image_in_rstudio,
"rstudioapi::viewer",
function(x) path <<- x
)
view_image_in_rstudio(tempdir())
expect_false(is.null(path))
file.copy(path, path2)
expect_snapshot_file(
path2,
transform = function(x) {
sub('asciicast-preview-[^"]*"', 'asciicast-preview-xxx"', x)
},
variant = os_type()
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.