R/get_number_of_endlines.R

In KWB-R/kwb.hydrus1d: R Interface for the Last Official Release of Hydrus1D (V4.17.0140) for Windows

#' Helper function: get number of "endlines"
#'
#' @param content content of text file
#'
#' @return returns number of lines starting with "end"
#' @keywords internal
#' @noMd
#' @noRd
#' @importFrom stringr str_detect
get_number_of_endlines <- function(content) {
  sum(stringr::str_detect(content, pattern = "^end"))
}