tests/testthat/test-layer_barchart.R

In kongdd/latticeGrob: Lattice Layers Functions

test_that("layer_barchart works", {
    expect_silent({
        p <- levelplot(z ~ x * y, dvolcano, col.regions = topo.colors(10)) + 
            layer_barchart() + 
            theme_lattice(c(0, 4, 0, 0))
        print(p)
    })
})