be more careful about using suggested packages in tests

Author: cpsievert

tests/testthat/test-ggplot-annotation_.R

@@ -9,6 +9,8 @@ p <- ggplot(mtcars, aes(mpg, wt)) +
 
 
 test_that("Basic annotation_raster() example works", {
+  # annotations require this package
+  skip_if_not_installed("png")
 
   l <- plotly_build(p)$x
 
@@ -38,16 +40,16 @@ test_that("Basic annotation_raster() example works", {
 })
 
 
-
-usamap <- map_data("state")
-seal.sub <- subset(seals, long > -130 & lat < 45 & lat > 40)
-p <- ggplot(seal.sub, aes(x = long, y = lat)) +
-  annotation_map(usamap, fill = "NA", colour = "grey50") +
-  geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat))
-
-
 test_that("Basic annotation_map() example works", {
 
+  skip_if_not_installed("maps")
+  
+  usamap <- map_data("state")
+  seal.sub <- subset(seals, long > -130 & lat < 45 & lat > 40)
+  p <- ggplot(seal.sub, aes(x = long, y = lat)) +
+    annotation_map(usamap, fill = "NA", colour = "grey50") +
+    geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat))
+  
   l <- plotly_build(p)$x
 
   expect_equivalent(l$data[[1]]$type, "scatter")

tests/testthat/test-ggplot-map.R

@@ -1,15 +1,17 @@
 context("maps")
 
-crimes <- data.frame(state = tolower(rownames(USArrests)), USArrests)
-crimesm <- tidyr::gather(crimes, variable, value, -state)
-states_map <- map_data("state")
-g <- ggplot(crimesm, aes(map_id = state)) +
-  geom_map(aes(fill = value), map = states_map) +
-  expand_limits(x = states_map$long, y = states_map$lat) +
-  facet_wrap( ~ variable)
-
 
 test_that("basic geom_map works",  {
+  skip_if_not_installed("maps")
+  
+  crimes <- data.frame(state = tolower(rownames(USArrests)), USArrests)
+  crimesm <- tidyr::gather(crimes, variable, value, -state)
+  states_map <- map_data("state")
+  g <- ggplot(crimesm, aes(map_id = state)) +
+    geom_map(aes(fill = value), map = states_map) +
+    expand_limits(x = states_map$long, y = states_map$lat) +
+    facet_wrap( ~ variable)
+  
   l <- expect_doppelganger_built(g, "map-facet")
   expect_true(length(l$data) > 1)
 })

tests/testthat/test-ggplot-polygons.R

@@ -141,6 +141,8 @@ test_that("geom_polygon(aes(size), fill, colour)", {
 })
 
 test_that("borders become one trace with NA", {
+  skip_if_not_installed("maps")
+  
   gg <- ggplot(maps::canada.cities, aes(long, lat)) +
     borders(regions = "canada")
   info <- expect_doppelganger_built(gg, "polygons-canada-borders")

tests/testthat/test-ggplot-sf.R

@@ -1,10 +1,10 @@
 context("geom_sf")
 
-nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
-
 test_that("geom_sf() basic polygons.", {
   skip_if_not_installed("sf")
 
+  nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
+  
   p <- ggplot(nc) + geom_sf()
 
   l <- expect_doppelganger_built(p, "sf")

tests/testthat/test-plotly-partial-bundles.R

@@ -2,6 +2,7 @@ context("partial-bundles")
 
 test_that("Can reduce saved file size with an basic (auto) partial bundle by half", {
   skip_on_cran()
+  skip_if_not(Sys.which("pandoc") != "", "pandoc needed for this test")
 
   p1 <- plot_ly(x = 1:10, y = 1:10) %>% add_markers()
   p2 <- partial_bundle(p1)

tests/testthat/test-plotly-sf.R

@@ -1,15 +1,15 @@
 context("add_sf")
 
-nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
-storms <- sf::st_read(system.file("shape/storms_xyz.shp", package = "sf"), quiet = TRUE)
-
 has_mapbox <- function() {
   !is.null(tryNULL(mapbox_token()))
 }
 
 test_that("add_sf() is optional", {
   skip_if_not_installed("sf")
 
+  nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
+  storms <- sf::st_read(system.file("shape/storms_xyz.shp", package = "sf"), quiet = TRUE)
+  
   p1 <- plotly_build(plot_ly(nc))
   p2 <- plotly_build(plot_ly() %>% add_sf(data = nc))
 

tests/testthat/test-plotly-subplot.R

@@ -136,6 +136,7 @@ test_that("subplot accepts a list of plots", {
 
 # Ignore for now https://github.com/ggobi/ggally/issues/264
 test_that("ggplotly understands ggmatrix", {
+  skip_if_not_installed("GGally")
   L <- expect_doppelganger_built(GGally::ggpairs(iris), "plotly-subplot-ggmatrix")
 })
 
@@ -167,6 +168,7 @@ test_that("annotation xref/yref are bumped correctly", {
 })
 
 test_that("images accumulate and paper coordinates are repositioned", {
+  skip_if_not_installed("png")
 
   r <- as.raster(matrix(hcl(0, 80, seq(50, 80, 10)), nrow = 4, ncol = 5))
 
@@ -200,6 +202,7 @@ test_that("images accumulate and paper coordinates are repositioned", {
 })
 
 test_that("images axis references are remapped", {
+  skip_if_not_installed("png")
 
   r <- as.raster(matrix(hcl(0, 80, seq(50, 80, 10)), nrow = 4, ncol = 5))