R/extract_year_from_filename.R

In BrianAronson/docshop: Doctor Shopping Functions

Defines functions extract_year_from_filename

Documented in extract_year_from_filename

#' Extracts year from filename
#' @export

extract_year_from_filename = function(outfile) {
  year = as.integer(str_extract(outfile, "\\d{4}"))
  return(year)
}