ylim test fails

Author: tdhock

tests/testthat/test-ggplot-ylim.R

@@ -0,0 +1,33 @@
+context("ggplot ylim")
+
+## http://www.cookbook-r.com/Graphs/Bar_and_line_graphs_%28ggplot2%29/
+
+df <- data.frame(time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
+                 total_bill = c(14.89, 17.23))
+
+gg.ylim <- 
+  ggplot(data=df, aes(x=time, y=total_bill, group=1)) +
+  geom_line() +
+  geom_point() +
+  ylim(0, max(df$total_bill)) +
+  xlab("Time of day") + ylab("Total bill") +
+  ggtitle("Average bill for 2 people")
+
+expect_traces <- function(gg, n.traces, name){
+  stopifnot(is.ggplot(gg))
+  stopifnot(is.numeric(n.traces))
+  save_outputs(gg, paste0("ylim-", name))
+  L <- gg2list(gg)
+  is.trace <- names(L) == ""
+  all.traces <- L[is.trace]
+  no.data <- sapply(all.traces, function(tr) {
+    is.null(tr[["x"]]) && is.null(tr[["y"]])
+  })
+  has.data <- all.traces[!no.data]
+  expect_equal(length(has.data), n.traces)
+  list(traces=has.data, kwargs=L$kwargs)
+}
+
+test_that("ylim is respected for 1 trace", {
+  expect_traces(gg.ylim, 1, "one-trace")
+})