warn for infinite radius values

Author: teunbrand

R/geom-spoke.R

@@ -8,6 +8,10 @@ GeomSpoke <- ggproto(
     data$radius <- data$radius %||% params$radius
     data$angle <- data$angle %||% params$angle
 
+    if (any(is.infinite(data$radius))) {
+      cli::cli_warn("Infinite {.field radius} values are unreliable.")
+    }
+
     transform(data,
               xend = x + cos(angle) * radius,
               yend = y + sin(angle) * radius

tests/testthat/_snaps/geom-spoke.md

@@ -0,0 +1,4 @@
+# geom_spoke warns about infinite radius (#6671)
+
+    Infinite radius values are unreliable.
+

tests/testthat/test-geom-spoke.R

@@ -0,0 +1,4 @@
+test_that("geom_spoke warns about infinite radius (#6671)", {
+  p <- ggplot() + geom_spoke(aes(0, 0, angle = pi / 4, radius = Inf))
+  expect_snapshot_warning(ggplot_build(p))
+})