R/source_chapter.R

In MollieCarroll/NonCO2-Figs: What the Package Does (One Line, Title Case)

#' Source Chapter from Source Category Designations
#'
#' @param source character vector of 'leaf' source categories 
#' 
#' @import stringr
source_chapter <- function(source) {
  str_extract(source, "^[:alnum:]+(?=|)")
}