R/unique_AU.R

In TravisPritchardODEQ/IRLibrary: Tools used in Oregon DEQ's Integrated Report Assessment

#' unique_AU
#'
#' This function extracts the unique element from an AU_ID. It will extract the last element defines by the '_' symbol.
#'
#' @param AU_ID AU_ID string to extract unique code portion from
#' @return The unique portion of an AU_ID as string
#' @examples unique_AU('OR_WS_170501100706_05_102965')
#' @export



unique_AU <- function(AU_ID){

  stringr::str_extract(AU_ID, "(?<=_)[^_]*$")


}