last2() doesn't handle missings in y #303
Description
Maybe should be more like this?
last2 <- function (x, y) {
miss <- is.na(x) | is.na(y)
x <- x[!miss]
y <- y[!miss]
y[order(x)][length(y)]
}{{ message }}
Maybe should be more like this?
last2 <- function (x, y) {
miss <- is.na(x) | is.na(y)
x <- x[!miss]
y <- y[!miss]
y[order(x)][length(y)]
}