R/find_last_regex_line.R

Defines functions find_last_regex_line

Documented in find_last_regex_line

#' Find the index of the last line that matches a regex
#' @param lines lines of text
#' @param regex regex string
#' @return index of the line
#' @author Richèl J.C. Bilderbeek
#' @export
find_last_regex_line <- function(lines, regex) {

  for (i in rev(seq_along(lines))) {
    match <- stringr::str_extract(
      string = lines[i],
      pattern = regex
    )
    if (!is_one_na(match)) return(i)
  }
  NA
}
richelbilderbeek/beastscriptr documentation built on Nov. 5, 2023, 8:36 p.m.