tests/testthat/test-plot.R

In rPBK: Inference and Prediction of Generic Physiologically-Based Kinetic Models

test_that("plot", {
    # (1) load data
    data("fitPBK_C4")
    # (3) run plot
    plotPBK_C4 = plot(fitPBK_C4)
    # (4) check plot has been executed:
    testthat::expect_true(all(class(plotPBK_C4) == c("gg", "ggplot")))
})