plot(xts.object, col = ifelse()) not working in 0.14.1

[dnousias]

Description

Upgrading to xts 0.14.1 doesn't allow xts plot where the col argument has a value for every row in the xts object. This works in xts version 0.14.0.

Minimal, reproducible example

n <- 1000
series <- rnorm(n)
datetimes <- seq(as.POSIXct("2017-03-27"), length.out = n, by = "days")

library(xts)
x <- xts(series, datetimes)
colors <- ifelse(x >=0 , "green", "red")
plot(x, col = colors, type = "h")

First, in xts version 0.14.1:

But in xts version 0.14.0:

[joshuaulrich]

Thanks for the report! This is a regression bug and will be fixed in the next release.

[ethanbsmith]

did i break this w/ #423? u can assign to me

[joshuaulrich]

@ethanbsmith looks like it. It gives the expected result in the commit prior to the fix (6523b54) and is broken in the commit with the fix (3086e14).