R/parseDelimitedString.R

In cusom/CUSOM.ShinyHelpers: CU School of Medicine Helper Functions for Shiny Applications

#' parses a delimited string looking for standard set of delimiters (excludes "-")
#'
#' @param string string with any number of delimiters ("," "." ";" ":")
#' @param position parsed element number to return
#' @return parsed element number from original string
#' @import stringi
#' @import stringr
#' @export
parseDelimitedString <- function(string, position = 1) {

  patterns <- "[,,.,;,:]+"

  replacement <- "|"

  cleanedString <- stringi::stri_replace_all_regex(
    string,
    patterns,
    replacement,
    vectorize_all = FALSE
  )

  return(stringr::str_split(cleanedString, "\\|", simplify = TRUE)[position])

}