add save_ouputs

Author: tdhock

tests/testthat/test-ggplot-ticks.R

@@ -4,9 +4,10 @@ PlantGrowth$type <-
   ifelse(PlantGrowth$group=="ctrl", "control", "treatment")
 boxes <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()
 
-expect_traces <- function(gg, n.traces){
+expect_traces <- function(gg, n.traces, name){
   stopifnot(is.ggplot(gg))
   stopifnot(is.numeric(n.traces))
+  save_outputs(gg, paste0("ticks-", name))
   L <- gg2list(gg)
   is.trace <- names(L) == ""
   all.traces <- L[is.trace]
@@ -22,7 +23,7 @@ plant.list <- split(PlantGrowth, PlantGrowth$group)
 weight.range <- range(PlantGrowth$weight)
 
 test_that("boxes without coord_flip()", {
-  info <- expect_traces(boxes, 3)
+  info <- expect_traces(boxes, 3, "boxes")
   for(tr in info$traces){
     expect_true(is.null(tr[["x"]]))
     expected <- plant.list[[tr$name]]$weight
@@ -33,7 +34,7 @@ test_that("boxes without coord_flip()", {
 
 test_that("boxes with facet_grid", {
   facets <- boxes + facet_grid(. ~ type)
-  info <- expect_traces(facets, 3)
+  info <- expect_traces(facets, 3, "boxes-facet-grid")
   ## TODO: expect boxes of equal size.
 
   ## TODO: expect empty space.
@@ -47,7 +48,7 @@ test_that("boxes with facet_grid", {
 
 test_that('boxes with facet_grid(scales="free")', {
   facets.scales <- boxes + facet_grid(. ~ type, scales="free")
-  info <- expect_traces(facets.scales, 3)
+  info <- expect_traces(facets.scales, 3, "boxes-scales-free")
   ## TODO: expect boxes of unequal size.
 
   ## TODO: expect no empty space.
@@ -61,7 +62,7 @@ test_that('boxes with facet_grid(scales="free")', {
 
 test_that('boxes with facet_grid(scales="free", space="free")', {
   facets.space <- boxes + facet_grid(. ~ type, scales="free", space="free")
-  info <- expect_traces(facets.space, 3)
+  info <- expect_traces(facets.space, 3, "boxes-space-free")
   ## TODO: expect boxes of equal size.
 
   ## TODO: expect no empty space.
@@ -76,7 +77,7 @@ test_that('boxes with facet_grid(scales="free", space="free")', {
 flipped <- boxes + coord_flip()
 
 test_that("boxes with coord_flip()", {
-  info <- expect_traces(flipped, 3)
+  info <- expect_traces(flipped, 3, "flip")
   for(tr in info$traces){
     expect_true(is.null(tr[["y"]]))
     expected <- plant.list[[tr$name]]$weight
@@ -126,23 +127,23 @@ test_that('boxes+facet_grid(scales="free", space="free")+coord_flip()', {
 test_that("Manually set the order of a discrete-valued axis", {
   expected.order <- c("trt1", "ctrl", "trt2")
   boxes.limits <- boxes + scale_x_discrete(limits=expected.order)
-  info <- expect_traces(boxes.limits, 3)
+  info <- expect_traces(boxes.limits, 3, "discrete-order")
   computed.order <- sapply(info$traces, "[[", "name")
   expect_identical(as.character(computed.order), expected.order)
 })
 
 test_that("limits can hide data", {
   expected.order <- c("trt1", "ctrl")
   boxes.limits <- boxes + scale_x_discrete(limits=expected.order)
-  info <- expect_traces(boxes.limits, 2)
+  info <- expect_traces(boxes.limits, 2, "limits-hide")
   computed.order <- sapply(info$traces, "[[", "name")
   expect_identical(as.character(computed.order), expected.order)
 })
 
 test_that("limits can create a gap", {
   expected.order <- c("trt1", "trt2", "GAP", "ctrl")
   boxes.limits <- boxes + scale_x_discrete(limits=expected.order)
-  info <- expect_traces(boxes.limits, 3)
+  info <- expect_traces(boxes.limits, 3, "limits-gap")
   computed.order <- sapply(info$traces, "[[", "name")
   ##expect_identical(as.character(computed.order), expected.order)
 
@@ -153,7 +154,7 @@ boxes.breaks <- boxes +
   scale_x_discrete(breaks=c("trt1", "ctrl", "trt2"))
 
 test_that("setting breaks does not change order", {
-  info <- expect_traces(boxes.breaks, 3)
+  info <- expect_traces(boxes.breaks, 3, "breaks-nochange")
   computed.labels <- sapply(info$traces, "[[", "name")
   expect_identical(as.character(computed.labels), c("ctrl", "trt1", "trt2"))
 })
@@ -162,7 +163,7 @@ boxes.more <- boxes +
   scale_x_discrete(breaks=c("trt1", "ctrl", "trt2", "FOO"))
 
 test_that("more breaks is fine", {
-  info <- expect_traces(boxes.more, 3)
+  info <- expect_traces(boxes.more, 3, "breaks-more")
   computed.labels <- sapply(info$traces, "[[", "name")
   expect_identical(as.character(computed.labels), c("ctrl", "trt1", "trt2"))
 })
@@ -171,7 +172,7 @@ boxes.less <- boxes +
   scale_x_discrete(breaks=c("trt1", "ctrl"))
 
 test_that("less breaks is fine", {
-  info <- expect_traces(boxes.less, 3)
+  info <- expect_traces(boxes.less, 3, "breaks-less")
   computed.labels <- sapply(info$traces, "[[", "name")
   ##expect_identical(as.character(computed.labels), c("ctrl", "trt1", "trt2"))
 
@@ -183,7 +184,7 @@ boxes.labels <- boxes +
                    labels=c("Treatment 1", "Control", "Treatment 2"))
 
 test_that("scale(labels) changes trace names", {
-  info <- expect_traces(boxes.labels, 3)
+  info <- expect_traces(boxes.labels, 3, "scale-labels")
   computed.labels <- sapply(info$traces, "[[", "name")
   expect_identical(as.character(computed.labels),
                    c("Control", "Treatment 1", "Treatment 2"))
@@ -192,7 +193,7 @@ test_that("scale(labels) changes trace names", {
 no.breaks <- boxes + scale_x_discrete(breaks=NULL)
 
 test_that("hide x ticks, lines, and labels", {
-  info <- expect_traces(no.breaks, 3)
+  info <- expect_traces(no.breaks, 3, "hide-ticks-lines-labels")
   x <- info$kwargs$layout$xaxis
   expect_identical(x[["showticklabels"]], FALSE)
   ##expect_identical(x[["showline"]], FALSE) #irrelevant.
@@ -213,7 +214,7 @@ test_that("hide x ticks, lines, and labels", {
 test_that("Hide X ticks and labels, but keep the gridlines", {
   boxes.grid <- boxes +
     theme(axis.ticks = element_blank(), axis.text.x = element_blank())
-  info <- expect_traces(boxes.grid, 3)
+  info <- expect_traces(boxes.grid, 3, "hide-ticks-labels")
   x <- info$kwargs$layout$xaxis
   expect_identical(x[["showticklabels"]], FALSE)
   expect_identical(x[["showgrid"]], TRUE)
@@ -222,14 +223,14 @@ test_that("Hide X ticks and labels, but keep the gridlines", {
 
 test_that("scale_y_continuous(limits) means yaxis$ranges", {
   boxes.range <- boxes + scale_y_continuous(limits=c(0,8))
-  info <- expect_traces(boxes.range, 3)
+  info <- expect_traces(boxes.range, 3, "ycontinuous-ranges")
   y.axis <- info$kwargs$layout$yaxis
   expect_equal(y.axis$range, c(0, 8))
 })
 
 test_that("ylim() means yaxis$ranges", {
   boxes.range <- boxes + ylim(0,8)
-  info <- expect_traces(boxes.range, 3)
+  info <- expect_traces(boxes.range, 3, "ylim-ranges")
   y.axis <- info$kwargs$layout$yaxis
   expect_equal(y.axis$range, c(0, 8))
   ## ensure correct positive values without reverse scale.
@@ -243,7 +244,7 @@ test_that("ylim() means yaxis$ranges", {
 
 test_that("scale_y_reverse() -> yaxis$ranges reversed", {
   boxes.reverse <- boxes + scale_y_reverse()
-  info <- expect_traces(boxes.reverse, 3)
+  info <- expect_traces(boxes.reverse, 3, "yreverse-ranges")
   y.axis <- info$kwargs$layout$yaxis
   expect_that(y.axis$range[2], is_less_than(y.axis$range[1]))
   ## ensure correct positive values, despite the reverse scale.
@@ -258,7 +259,7 @@ test_that("scale_y_reverse() -> yaxis$ranges reversed", {
 test_that("scale_y_reverse(limits) -> yaxis$ranges reversed", {
   y.lim <- c(10, -2)
   boxes.reverse <- boxes + scale_y_reverse(limits=y.lim)
-  info <- expect_traces(boxes.reverse, 3)
+  info <- expect_traces(boxes.reverse, 3, "yreverse-limits-ranges")
   y.axis <- info$kwargs$layout$yaxis
   expect_equal(y.axis$range, y.lim)
   ## ensure correct positive values, despite the reverse scale.
@@ -272,7 +273,7 @@ test_that("scale_y_reverse(limits) -> yaxis$ranges reversed", {
 
 test_that("ylim(reversed) -> yaxis$ranges reversed", {
   boxes.reverse <- boxes + ylim(7.5, -1)
-  info <- expect_traces(boxes.reverse, 3)
+  info <- expect_traces(boxes.reverse, 3, "ylim-reversed-ranges")
   y.axis <- info$kwargs$layout$yaxis
   expect_equal(y.axis$range, c(7.5, -1))
   ## ensure correct positive values, despite the reverse scale.
@@ -288,7 +289,7 @@ test_that("Set the X tick mark locations", {
   ## This will show tick marks on every 0.25 from 1 to 10. The scale will
   ## show only the ones that are within range (3.50-6.25 in this case)
   boxes.ticks <- boxes + scale_y_continuous(breaks=seq(1,10,1/4))
-  info <- expect_traces(boxes.ticks, 3)
+  info <- expect_traces(boxes.ticks, 3, "evenly-spaced-ticks")
   y.axis <- info$kwargs$layout$yaxis
   expect_equal(y.axis$dtick, 0.25)
   expect_identical(y.axis$autotick, FALSE)
@@ -303,7 +304,7 @@ test_that("The breaks can be spaced unevenly", {
 
 test_that("hide y ticks, lines, and labels", {
   no.breaks <- boxes + scale_y_continuous(breaks=NULL)
-  info <- expect_traces(no.breaks, 3)
+  info <- expect_traces(no.breaks, 3, "hide-y")
   y.axis <- info$kwargs$layout$yaxis
   expect_identical(y.axis[["showgrid"]], FALSE)
   expect_identical(y.axis[["ticks"]], "")
@@ -313,7 +314,7 @@ test_that("hide y ticks, lines, and labels", {
 test_that("hide y ticks and labels, but keep the gridlines", {
   boxes.ygrid <- boxes +
     theme(axis.ticks = element_blank(), axis.text.y = element_blank())
-  info <- expect_traces(boxes.ygrid, 3)
+  info <- expect_traces(boxes.ygrid, 3, "hide-y-keep-grid")
   y.axis <- info$kwargs$layout$yaxis
   expect_identical(y.axis[["showgrid"]], TRUE)
   expect_identical(y.axis[["ticks"]], "")