fix bug in arrow_cup()

teunbrand · Nov 5, 2023 · 69148ed · 69148ed
1 parent 600bfa4
commit 69148ed
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/arrow_shapes.R b/R/arrow_shapes.R
@@ -237,9 +237,7 @@ arrow_cup <- function(lineend = "round", angle = NULL) {
     if (lineend == "round") {
       cx <- (x[1, 1] + x[1, 2]) / 2
       cy <- (y[1, 1] + y[1, 2]) / 2
-      norm <- -0.5 * angle - .halfpi
-      norm <- seq(norm + pi, norm, length.out = 20)[-c(1, 20)]
-
+      norm <- seq(.twopi, pi, length.out = 20)[-c(1, 20)] + 0.5 * angle
       cx <- cx + cos(norm) * width * 0.5
       cy <- cy + sin(norm) * width * 0.5
     } else {