From 933f2350fc16431bb77ab913a6da09dedb9043a9 Mon Sep 17 00:00:00 2001
From: Scott Chamberlain <sckott@fastmail.com>
Date: Wed, 27 Jan 2021 11:44:31 -0800
Subject: [PATCH] wkt_parse egs: only run if sf installed

---
 R/wkt_parse.R                  | 2 ++
 man/wkt_parse.Rd               | 2 ++
 tests/testthat/test-occ_data.R | 3 ++-
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/R/wkt_parse.R b/R/wkt_parse.R
index 33966f97..308be172 100644
--- 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
index cc27ad3d..2158bf8f 100644
--- a/man/wkt_parse.Rd
+++ b/man/wkt_parse.Rd
@@ -52,6 +52,7 @@ wkt <- "POLYGON((13.26349675655365 52.53991761181831,18.36115300655365 54.114455
 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")
 
@@ -63,3 +64,4 @@ wkt_parse(wkt, geom_big = "axe", 20)
 wkt_parse(wkt, geom_big = "axe", 10)
 wkt_parse(wkt, geom_big = "axe", 5)
 }
+}
diff --git a/tests/testthat/test-occ_data.R b/tests/testthat/test-occ_data.R
index 2648a660..f306f022 100644
--- 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