add test

Author: teunbrand

tests/testthat/test-coord-polar.R

@@ -197,6 +197,18 @@ test_that("radial coords can be reversed", {
   expect_equal(as.numeric(fwd$y), rev(as.numeric(rev$y)))
 })
 
+test_that("coord_radial can deal with empty breaks (#6271)", {
+  p <- ggplot_build(
+    ggplot(mtcars, aes(mpg, disp)) +
+      geom_point() +
+      coord_radial() +
+      scale_x_continuous(breaks = numeric()) +
+      scale_y_continuous(breaks = numeric())
+  )
+  guides <- p$layout$panel_params[[1]]$guides$guides
+  is_none <- vapply(guides, inherits, logical(1), what = "GuideNone")
+  expect_true(all(is_none))
+})
 
 # Visual tests ------------------------------------------------------------