tests/testthat/test-other-ggplot.R

In neuhausi/canvasXpress: Visualization Package for CanvasXpress in R

context("canvasXpress ggplot conversions")

test_that("simple scatterplot", {
    testthat::skip_if_not_installed("ggplot")

    gg1 <- ggplot(data = mpg,
                  aes(x      = displ,
                      y      = hwy)) +
        geom_point(aes(color = factor(cyl)))

    print(gg1)
    canvasXpress(gg1)
})