fix radial displacement

teunbrand · teunbrand · commit 6e6a5fa4bf6f · 2025-03-27T11:11:39.000+01:00
diff --git a/R/coord-radial.R b/R/coord-radial.R
@@ -499,6 +499,7 @@ polar_bbox <- function(arc, margin = c(0.05, 0.05, 0.05, 0.05),
     return(list(x = c(0, 1), y = c(0, 1)))
   }
   arc <- sort(arc)
+  inner_radius <- sort(inner_radius)
 
   # X and Y position of the sector arc ends
   xmax <- 0.5 * sin(arc) + 0.5

Original file line number	Diff line number	Diff line change
`@@ -499,6 +499,7 @@ polar_bbox <- function(arc, margin = c(0.05, 0.05, 0.05, 0.05),`
`499`	`499`	`return(list(x = c(0, 1), y = c(0, 1)))`
`500`	`500`	`}`
`501`	`501`	`arc <- sort(arc)`
	`502`	`+ inner_radius <- sort(inner_radius)`
`502`	`503`
`503`	`504`	`# X and Y position of the sector arc ends`
`504`	`505`	`xmax <- 0.5 * sin(arc) + 0.5`