inst/tinytest/test-35-display.R

B <- loder::readPng(system.file("images", "B.png", package="mmand"))

# We need to avoid creating plot files within installed package directories
setwd(tempdir())
expect_null(display(B))

output <- capture.output(sketch(B))
expect_true(any(grepl("@@@@@", output, fixed=TRUE)))
expect_false(all(grepl("@@@@@", output, fixed=TRUE)))

Try the mmand package in your browser

Any scripts or data that you put into this service are public.

mmand documentation built on Feb. 16, 2023, 9:22 p.m.