addEventLines() for multiple panels

[ethanbsmith]

Description

addEventLines() current only draws on a single panel or adds a new panel. this is cumbersome when needing to add the same even to multiple panels. eg, see attached image

Expected behavior

would be nice if the on parameter either supported a vector of panels, or maybe a special value (like NULL) which would draw the event across all panels

Minimal, reproducible example

[joshuaulrich]

Thanks for the report. Here's an example.

library(xts)
data(sample_matrix)
x <- as.xts(sample_matrix)
plot(x, multi.panel = TRUE)
addEventLines(xts("a", index(x)[10]), pos = 4)

Setting on to a vector of panel numbers errors. This also fails for addLegend().

addEventLines(xts("a", index(x)[10]), pos = 4, on = 1:4)
addLegend(on = 1:4)

[joshuaulrich]

@ethanbsmith please see if that patch works for you.

[ethanbsmith]

for the record, this crash under 4.4.0 was a build issue on my machine. works fine