take the first match

cpsievert · cpsievert · commit 1cacb486d07b · 2019-01-10T18:57:02.000-06:00
diff --git a/R/subplots.R b/R/subplots.R
@@ -226,7 +226,7 @@ subplot <- function(..., nrows = 1, widths = NULL, heights = NULL, margin = 0.02
         obj[[ref]] <- obj[[ref]] %||% ref_default
         if (identical(obj[[ref]], "paper")) return(obj)
         refIdx <- match(obj[[ref]], axisMap)
-        if (!is.na(refIdx)) obj[[ref]] <- names(axisMap)[refIdx]
+        if (!is.na(refIdx)) obj[[ref]] <- names(axisMap)[refIdx][1]
         obj
       }
       annotations[[i]] <- lapply(annotations[[i]], bump_axis_ref)

Original file line number	Diff line number	Diff line change
`@@ -226,7 +226,7 @@ subplot <- function(..., nrows = 1, widths = NULL, heights = NULL, margin = 0.02`
`226`	`226`	`obj[[ref]] <- obj[[ref]] %\|\|% ref_default`
`227`	`227`	`if (identical(obj[[ref]], "paper")) return(obj)`
`228`	`228`	`refIdx <- match(obj[[ref]], axisMap)`
`229`		`- if (!is.na(refIdx)) obj[[ref]] <- names(axisMap)[refIdx]`
	`229`	`+ if (!is.na(refIdx)) obj[[ref]] <- names(axisMap)[refIdx][1]`
`230`	`230`	`obj`
`231`	`231`	`}`
`232`	`232`	`annotations[[i]] <- lapply(annotations[[i]], bump_axis_ref)`