test_that("handles parsing failures gracefully", {
expect_snapshot(test_evaluate("1 + ", highlight = TRUE))
})
test_that("highlights when requested", {
expect_snapshot(test_evaluate("1 + \n 2 + 3", highlight = TRUE))
})
test_that("handles basic cases", {
expect_snapshot({
test_evaluate("# comment")
test_evaluate("message('x')")
test_evaluate("warning('x')")
test_evaluate("stop('x', call. = FALSE)")
test_evaluate("f <- function() stop('x'); f()")
})
})
test_that("each line of input gets span", {
expect_snapshot({
test_evaluate("1 +\n 2 +\n 3 +\n 4 +\n 5")
})
})
test_that("output always gets trailing nl", {
# These two calls should produce the same output
expect_snapshot({
test_evaluate('cat("a")\ncat("a\\n")')
})
})
test_that("combines plots as needed", {
expect_snapshot({
f1 <- function() plot(1)
f2 <- function() lines(0:2, 0:2)
test_evaluate("f1()\nf2()\n")
})
expect_snapshot({
f3 <- function() { plot(1); plot(2) }
test_evaluate("f3()")
})
})
test_that("handles other plots", {
# Check that we can drop the inclusion of the first one
registerS3method("is_low_change", "fakePlot", function(p1, p2) TRUE,
envir = asNamespace("downlit")
)
registerS3method("replay_html", "fakePlot", function(x, ...) {
paste0("<HTML for plot ", unclass(x), ">")
}, envir = asNamespace("downlit"))
registerS3method("print", "fakePlot", function(x, ...) x)
expect_snapshot_output({
f3 <- function() structure(3, class = c("fakePlot", "otherRecordedplot"))
f4 <- function() structure(4, class = c("fakePlot", "otherRecordedplot"))
test_evaluate("f3()\nf4()")
})
})
test_that("ansi escapes are translated to html", {
expect_snapshot({
blue <- function(x) paste0("\033[34m", x, "\033[39m")
f <- function(x) {
cat("Output: ", blue("blue"), "\n", sep = "")
message(paste0("Message: ", blue("blue")))
warning(blue("blue"), call. = FALSE)
stop(blue("blue"), call. = FALSE)
}
test_evaluate("f()\n")
})
})
# html --------------------------------------------------------------------
test_that("can include literal HTML", {
output <- evaluate::new_output_handler(value = identity)
env <- env(foo = function() htmltools::div("foo"))
html <- evaluate_and_highlight("foo()", env = env, output_handler = output, highlight = FALSE)
expect_equal(as.character(html), "<span class='r-in'>foo()</span>\n<div>foo</div>")
})
test_that("captures dependencies", {
output <- evaluate::new_output_handler(value = identity)
dummy_dep <- htmltools::htmlDependency("dummy", "1.0.0", "dummy.js")
env <- env(foo = function() htmltools::div("foo", dummy_dep))
html <- evaluate_and_highlight("foo()", env = env, output_handler = output, highlight = FALSE)
expect_equal(attr(html, "dependencies"), list(dummy_dep))
})
Generated by dwww version 1.15 on Sat May 18 07:04:04 CEST 2024.