fix incorrect bounding box calculation

teunbrand · teunbrand · commit 2d86f8d958cd · 2024-12-04T13:28:08.000+01:00
diff --git a/R/coord-radial.R b/R/coord-radial.R
@@ -491,6 +491,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
`@@ -491,6 +491,7 @@ polar_bbox <- function(arc, margin = c(0.05, 0.05, 0.05, 0.05),`
`491`	`491`	`return(list(x = c(0, 1), y = c(0, 1)))`
`492`	`492`	`}`
`493`	`493`	`arc <- sort(arc)`
	`494`	`+ inner_radius <- sort(inner_radius)`
`494`	`495`
`495`	`496`	`# X and Y position of the sector arc ends`
`496`	`497`	`xmax <- 0.5 * sin(arc) + 0.5`