Skip tests with ggplot2 code that fails on old R versions

Author: cpsievert

tests/testthat/test-rotated-ticks.R

@@ -1,3 +1,5 @@
+testthat::skip_if_not(getRversion() >= "4.3.0")
+
 
 ss <- data.frame(State=paste("some long text", c("CA", "NY", "TX")),
                  Prop.Inv=c(0, 1, 0.7),

tests/testthat/test-ticktext-linebreaks.R

@@ -25,11 +25,18 @@ expect_margin <- function(L, gg, ticktext) {
   expect_equal(round(L$layout$margin$l, 10), round(margin_l, 10))
 }
 
-# Linebreaks
-d <- data.frame(x = c(1, 2, 3), y = c("ticktext\nlong_ticktext\nticktext", "ticktext", "ticktext"))
-gg <- ggplot(d, aes(x, y)) + geom_bar(stat = "identity")
+
 
 test_that("ggplotly takes account of linebreaks in ticktext", {
+  testthat::skip_if_not(getRversion() >= "4.3.0")
+
+  # Linebreaks
+  d <- data.frame(
+    x = c(1, 2, 3),
+    y = c("ticktext\nlong_ticktext\nticktext", "ticktext", "ticktext")
+  )
+  gg <- ggplot(d, aes(x, y)) + geom_bar(stat = "identity")
+
   # Visual Test
   L <- expect_doppelganger_built(gg, "ticktext-linebreaks")
   # ggplotly returns correct margin