wkt_parse egs: only run if sf installed

ropensci · Jan 27, 2021 · 933f235 · 933f235
1 parent 17aa09c
commit 933f235
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 1 deletion.
diff --git a/R/wkt_parse.R b/R/wkt_parse.R
@@ -39,6 +39,7 @@
 #' 55.43241335888528,13.26349675655365 52.53991761181831))"
 #' wkt <- gsub("\n", " ", wkt)
 #'
+#' if (requireNamespace("sf", quietly=TRUE)) {
 #' # to a bounding box in wkt format
 #' wkt_parse(wkt, geom_big = "bbox")
 #'
@@ -49,6 +50,7 @@
 #' wkt_parse(wkt, geom_big = "axe", 20)
 #' wkt_parse(wkt, geom_big = "axe", 10)
 #' wkt_parse(wkt, geom_big = "axe", 5)
+#' }
 wkt_parse <- function(wkt, geom_big, geom_size=40, geom_n=10) {
   geometry_handler(wkt, geom_big, geom_size, geom_n, FALSE)
 }
diff --git a/man/wkt_parse.Rd b/man/wkt_parse.Rd
diff --git a/tests/testthat/test-occ_data.R b/tests/testthat/test-occ_data.R
@@ -254,6 +254,8 @@ test_that("geometry inputs work as expected", {
   55.43241335888528,13.26349675655365 52.53991761181831))"
   wkt <- gsub("\n", " ", wkt)
 
+  skip_if_not_installed("sf")
+
   # if WKT too long, with 'geom_big=bbox': makes into bounding box
   vcr::use_cassette("occ_data_geometry_dd", {
     dd <- occ_data(geometry = wkt, geom_big = "bbox", limit = 30)
@@ -264,7 +266,6 @@ test_that("geometry inputs work as expected", {
                  "geometry is big, querying BBOX, then pruning results to polygon")
 
   # use 'geom_big=axe'
-  skip_if_not_installed("sf")
   vcr::use_cassette("occ_data_geometry_ee_gg", {
     ee <- occ_data(geometry = wkt, geom_big = "axe", limit = 30)
     ## more calls