R/first_which.R

In hutilscpp: Miscellaneous Functions in C++

Defines functions last_which first_which

first_which <- function(expr) {
  o <- which(expr)
  if (length(o)) {
    return(o[1])
  } else {
    return(0L)
  }
}

last_which <- function(expr) {
  o <- which(expr)
  if (length(o)) {
    return(last(o))
  } else {
    return(0L)
  }
}

Try the hutilscpp package in your browser