R/strsplit_on_multiple.R

In zackarno/butteR: Smoothes out analysis work flow especially when using mobilie data collection systems (ODK/Kobo)

#'Split strings on multiple delimeters
#'
#' @param x string or vector of strings
#' @param separator single or vector of separator delimeters
#' @return a list of vectors with split strings
#' @details does not support regex matching
#' @examples
#' strings_to_split<-c('abc def.gh', "def.kl abc 9")
#' separation_pattern<-c(" ", "c")
#' strsplit_on_multiple(x = strings_to_split,
#'                      separation_pattern)
#'
#'@export
strsplit_on_multiple<-function(x,separator){

  separator<- Hmisc::escapeRegex(separator)

  collapsed_separator<-paste0( separator, collapse= "|")
  split_element<- strsplit(x=x,split = collapsed_separator) %>%
    lapply(function(x) x[x!=""]) #remove any empty returned strings
  split_element
}