tests/testthat/test_codewriting.R

context("Plot code writing")

data(iris)
test_that("Basic plot returns valid code", {
    # p <- iNZightPlot(Sepal.Width, data = iris)
    # expect_equal(
    #     attr(p, "code"),
    #      "iNZightPlot(Sepal.Width, data = iris)"
    # )
})
iNZightVIT/iNZightPlots documentation built on June 13, 2025, 12:34 p.m.