prevent error with vectorised arrows

teunbrand · teunbrand · commit e32f3a2be417 · 2025-09-08T09:28:03.000+02:00
diff --git a/R/legend-draw.R b/R/legend-draw.R
@@ -211,7 +211,7 @@ draw_key_path <- function(data, params, size) {
   )
   if (!is.null(params[["arrow"]])) {
     angle <- deg2rad(params[["arrow"]]$angle)
-    length <- convertUnit(params[["arrow"]]$length, "cm", valueOnly = TRUE)
+    length <- convertUnit(params[["arrow"]]$length[1], "cm", valueOnly = TRUE)
     attr(grob, "width")  <- cos(angle) * length * 1.25
     attr(grob, "height") <- sin(angle) * length * 2
   }
@@ -232,7 +232,7 @@ draw_key_vpath <- function(data, params, size) {
   )
   if (!is.null(params[["arrow"]])) {
     angle <- deg2rad(params[["arrow"]]$angle)
-    length <- convertUnit(params[["arrow"]]$length, "cm", valueOnly = TRUE)
+    length <- convertUnit(params[["arrow"]]$length[1], "cm", valueOnly = TRUE)
     attr(grob, "width")  <- sin(angle) * length * 2
     attr(grob, "height") <- cos(angle) * length * 1.25
   }

Original file line number	Diff line number	Diff line change
`@@ -211,7 +211,7 @@ draw_key_path <- function(data, params, size) {`
`211`	`211`	`)`
`212`	`212`	`if (!is.null(params[["arrow"]])) {`
`213`	`213`	`angle <- deg2rad(params[["arrow"]]$angle)`
`214`		`- length <- convertUnit(params[["arrow"]]$length, "cm", valueOnly = TRUE)`
	`214`	`+ length <- convertUnit(params[["arrow"]]$length[1], "cm", valueOnly = TRUE)`
`215`	`215`	`attr(grob, "width") <- cos(angle) * length * 1.25`
`216`	`216`	`attr(grob, "height") <- sin(angle) * length * 2`
`217`	`217`	`}`
`@@ -232,7 +232,7 @@ draw_key_vpath <- function(data, params, size) {`
`232`	`232`	`)`
`233`	`233`	`if (!is.null(params[["arrow"]])) {`
`234`	`234`	`angle <- deg2rad(params[["arrow"]]$angle)`
`235`		`- length <- convertUnit(params[["arrow"]]$length, "cm", valueOnly = TRUE)`
	`235`	`+ length <- convertUnit(params[["arrow"]]$length[1], "cm", valueOnly = TRUE)`
`236`	`236`	`attr(grob, "width") <- sin(angle) * length * 2`
`237`	`237`	`attr(grob, "height") <- cos(angle) * length * 1.25`
`238`	`238`	`}`