skip tests that use non-installed/imported packaged

Author: cpsievert

tests/testthat/test-ggplot-contour.R

@@ -1,12 +1,15 @@
 context("Contour")
 
-volcano3d <- reshape2::melt(volcano)
-names(volcano3d) <- c("x", "y", "z")
-# Draw a contour plot using geom_contour
-gg <- ggplot(volcano3d) + geom_contour(aes(x=x, y=y, z=z))
-L <- save_outputs(gg, "contour")
+
 
 test_that("geom_contour is translated to a path", {
+  skip_if_not_installed("reshape2")
+  
+  volcano3d <- reshape2::melt(volcano)
+  names(volcano3d) <- c("x", "y", "z")
+  # Draw a contour plot using geom_contour
+  gg <- ggplot(volcano3d) + geom_contour(aes(x=x, y=y, z=z))
+  L <- save_outputs(gg, "contour")
   expect_equivalent(length(L$data), 1)
   expect_identical(L$data[[1]]$type, "scatter")
   expect_identical(L$data[[1]]$mode, "lines")

tests/testthat/test-ggplot-heatmap.R

@@ -7,13 +7,16 @@ workweek <- matrix(
   nrow = 5, ncol = 3, byrow = TRUE,
   dimnames = list(day = wdays, time = dtimes)
 )
-ww <- reshape2::melt(workweek)
-ww$day <- factor(ww$day, wdays)
-ww$time <- factor(ww$time, dtimes)
-# Plot a heatmap using geom_tile
-hm <- ggplot(ww) + geom_tile(aes(x = day, y = time, fill = value))
 
 test_that("geom_tile is translated to type=heatmap", {
+  skip_if_not_installed("reshape2")
+  
+  ww <- reshape2::melt(workweek)
+  ww$day <- factor(ww$day, wdays)
+  ww$time <- factor(ww$time, dtimes)
+  # Plot a heatmap using geom_tile
+  hm <- ggplot(ww) + geom_tile(aes(x = day, y = time, fill = value))
+  
   L <- save_outputs(hm, "heatmap")
   # one trace is for the colorbar
   expect_equivalent(length(L$data), 2)

tests/testthat/test-ggplot-ticks.R

@@ -175,6 +175,8 @@ test_that("The breaks can be spaced unevenly", {
 })
 
 test_that("R line breaks are translated to HTML line breaks", {
+  skip_if_not_installed("stringr")
+  
   df_x <- data.frame(
     x = "this is very loooooooooooong text to illustrate",
     y = 100