Return last match from vector

Question

Is there a simple way to get the index of the last match of a vector?

lastInflectionRow(c(TRUE,FALSE,TRUE,FALSE,FALSE))

lastInflectionRow<-function(temp){
    m<-match(TRUE,temp,nomatch=NA)
    m
}

GOAL: 3

Answer 1

Another simple way could be using max on the index of TRUE elements.

x <- c(TRUE,FALSE,TRUE,FALSE,FALSE)

max(which(x))

#[1] 3