optionally skip tests requiring 'maps' (#5197)

* optionally skip tests requiring 'maps'

* Update test-geom-hline-vline-abline.R

* Update test-coord-map.R

Author: MichaelChirico

tests/testthat/test-annotate.r

@@ -29,6 +29,7 @@ test_that("segment annotations transform with scales", {
 })
 
 test_that("annotation_* has dummy data assigned and don't inherit aes", {
+  skip_if_not_installed("maps")
   skip_if(packageVersion("base") < "3.5.0")
   custom <- annotation_custom(zeroGrob())
   logtick <- annotation_logticks()

tests/testthat/test-coord-map.R

@@ -1,4 +1,5 @@
 test_that("USA state map drawn", {
+  skip_if_not_installed("maps") # required for map_data()
   skip_if(packageVersion("base") < "3.5.0")
   us_map <- map_data("usa")
   p_us <- ggplot(us_map, aes(x = long, y = lat, group = group))
@@ -11,6 +12,7 @@ test_that("USA state map drawn", {
 })
 
 test_that("coord_map scale position can be switched", {
+  skip_if_not_installed("maps") # required for map_data()
   skip_if(packageVersion("base") < "3.5.0")
   us_map <- map_data("usa")
   p_us <- ggplot(us_map, aes(x = long, y = lat, group = group))
@@ -25,6 +27,7 @@ test_that("coord_map scale position can be switched", {
 })
 
 test_that("Inf is squished to range", {
+  skip_if_not_installed("maps") # required for mproject()
   skip_if(packageVersion("base") < "3.5.0")
   d <- cdata(
     ggplot(data_frame(x = 0, y = 0)) +

tests/testthat/test-geom-hline-vline-abline.R

@@ -27,6 +27,7 @@ test_that("check h/v/abline transformed on basic projections", {
 })
 
 test_that("curved lines in map projections", {
+  skip_if_not_installed("maps") # required for map_data()
   skip_if(packageVersion("base") < "3.5.0")
   nz <- subset(map_data("nz"), region == "North.Island ")
   nzmap <- ggplot(nz, aes(long, lat, group = group)) +