diff --git a/tests/figs/final-gpcp-figures/example-1-in-help-file.svg b/tests/figs/final-gpcp-figures/example-1-in-help-file.svg new file mode 100644 index 0000000..c639030 --- /dev/null +++ b/tests/figs/final-gpcp-figures/example-1-in-help-file.svg @@ -0,0 +1,368 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +4 +6 +8 +0 +1 +0 +1 +3 +4 +5 + + + + + + +0.00 +0.25 +0.50 +0.75 +1.00 + + + + + + + + + +cyl +vs +am +gear + +vs + + + + + + +0 +1 +example 1 in help file + diff --git a/tests/testthat/test-figs.R b/tests/testthat/test-figs.R index c63cf44..9265197 100644 --- a/tests/testthat/test-figs.R +++ b/tests/testthat/test-figs.R @@ -9,5 +9,18 @@ testthat::test_that("Basic structure for geom_pcp output", { basic_plot <- ggplot(df) + geom_pcp(aes(vars = vars(var1, var2, fac1, fac2))) vdiffr::expect_doppelganger("numeric and factor variables", basic_plot) + + example_in_geom_pcp_help_file <- mtcars %>% + mutate(cyl = factor(cyl), + vs = factor(vs), + am = factor(am), + gear = factor(gear)) %>% + ggplot(aes(vars = vars(cyl, vs:gear))) + + geom_pcp(aes(color = vs), boxwidth = 0.2, resort = 2:3) + + geom_pcp_box(boxwidth = 0.2) + + geom_pcp_band(boxwidth = 0.2, resort = 2:3) + + geom_pcp_text(boxwidth = 0.2) + + vdiffr::expect_doppelganger("example 1 in help file", example_in_geom_pcp_help_file) })