simplify arrow flipping

teunbrand · teunbrand · commit db4a5f3a8f54 · 2025-02-14T15:42:58.000+01:00
diff --git a/R/geom-curve.R b/R/geom-curve.R
@@ -66,11 +66,8 @@ GeomCurve <- ggproto("GeomCurve", GeomSegment,
     if (flip) {
       trans <- rename(trans, c(x = "xend", xend = "x", y = "yend", yend = "y"))
       if (!is.null(arrow)) {
-        # Flip end where arrow appears
-        last_end  <- arrow$ends == 2L
-        first_end <- arrow$ends == 1L
-        arrow$ends[last_end]  <- 1L
-        arrow$ends[first_end] <- 2L
+        # Flip end where arrow appears (2 = last, 1 = first, 3 = both)
+        arrow$ends <- match(arrow$ends, c(2, 1, 3))
       }
     }
 

Original file line number	Diff line number	Diff line change
`@@ -66,11 +66,8 @@ GeomCurve <- ggproto("GeomCurve", GeomSegment,`
`66`	`66`	`if (flip) {`
`67`	`67`	`trans <- rename(trans, c(x = "xend", xend = "x", y = "yend", yend = "y"))`
`68`	`68`	`if (!is.null(arrow)) {`
`69`		`- # Flip end where arrow appears`
`70`		`- last_end <- arrow$ends == 2L`
`71`		`- first_end <- arrow$ends == 1L`
`72`		`- arrow$ends[last_end] <- 1L`
`73`		`- arrow$ends[first_end] <- 2L`
	`69`	`+ # Flip end where arrow appears (2 = last, 1 = first, 3 = both)`
	`70`	`+ arrow$ends <- match(arrow$ends, c(2, 1, 3))`
`74`	`71`	`}`
`75`	`72`	`}`
`76`	`73`