tests/testthat/test-ggplot.R

In neuhausi/canvasXpress: Visualization Package for CanvasXpress in R

context("canvasXpress ggplot conversions")

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

    print(gg1)
    canvasXpress(gg1)
})