tests/testthat/test_codewriting.R

In iNZightPlots: Graphical Tools for Exploring Data with 'iNZight'

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)"
    # )
})