R/position_of_closing_brace.R

In TeXCheckR: Parses LaTeX Documents for Errors

Defines functions position_of_closing_brace

position_of_closing_brace <- function(line, prefix){
  lines_split <- strsplit(gsub(paste0("^.*", prefix), "", line, perl = TRUE), split = "")[[1]]
  min(which(cumsum(lines_split == "{") - cumsum(lines_split == "}") == 0))
}

Try the TeXCheckR package in your browser