catch an is_zero() case

teunbrand · teunbrand · commit 52a80e1fc39b · 2025-04-16T10:27:35.000+02:00
diff --git a/R/coord-radial.R b/R/coord-radial.R
@@ -575,7 +575,7 @@ deg2rad <- function(deg) deg * pi / 180
 # Function to rotate a radius axis through viewport
 rotate_r_axis <- function(axis, angle, bbox, position = "left") {
 
-  if (inherits(axis, "zeroGrob")) {
+  if (is_zero(axis)) {
     return(axis)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -575,7 +575,7 @@ deg2rad <- function(deg) deg * pi / 180`
`575`	`575`	`# Function to rotate a radius axis through viewport`
`576`	`576`	`rotate_r_axis <- function(axis, angle, bbox, position = "left") {`
`577`	`577`
`578`		`- if (inherits(axis, "zeroGrob")) {`
	`578`	`+ if (is_zero(axis)) {`
`579`	`579`	`return(axis)`
`580`	`580`	`}`
`581`	`581`