R/find_last_xml_closing_tag_line.R

Defines functions find_last_xml_closing_tag_line

Documented in find_last_xml_closing_tag_line

#' Find the highest line number of a section's closing tag
#' @param lines the lines of an XML text
#' @param section the name of the XML section
#' @return the line number's index (which is 1 for the first line) if the
#'   opening tag is found, else NA
#' @author Richèl J.C. Bilderbeek
#' @export
find_last_xml_closing_tag_line <- function(
  lines,
  section
) {
  check_string(section)
  find_last_regex_line(lines, paste0("</", section, ">"))
}
ropensci/beautier documentation built on Nov. 3, 2023, 10:41 a.m.