check snap radius input

Author: paleolimbot

R/s2-options.R

@@ -68,6 +68,14 @@ s2_options <- function(model = NULL,
                        simplify_edge_chains = FALSE,
                        split_crossing_edges = FALSE,
                        idempotent = FALSE) {
+  # check snap radius (passing in a huge snap radius can cause problems)
+  if (snap_radius > 3) {
+    stop(
+      "Snap radius is too large. Did you pass in a snap radius in meters instead of radians?",
+      call. = FALSE
+    )
+  }
+
   structure(
     list(
       # model needs to be "unset" by default because there are differences in polygon

tests/testthat/test-s2-options.R

@@ -6,4 +6,5 @@ test_that("s2_options() works", {
 test_that("s2_options() errors are readable", {
   expect_error(s2_intersects("POINT EMPTY", "POINT EMPTY", options = NULL), "must be created using")
   expect_error(s2_options(model = "not a model"), "must be one of")
+  expect_error(s2_options(snap_radius = 100), "radius is too large")
 })