R/find_first_xml_opening_tag_line.R

In ropensci/beautier: 'BEAUti' from R

#' Find the line number of the first section's opening 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_first_xml_opening_tag_line <- function( # nolint indeed long function name
  lines,
  section
) {
  check_string(section)
  find_first_regex_line(lines, paste0("<", section, ".*>"))
}