R/strVecSplit.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' strsplit0 in a vec
#'
#' @param strVec
#' @param split
#' @param simplify
#'
#' @return
#' @export
#'
#' @examples
strVecSplit <- function(strVec, split, simplify = TRUE) {
    strVecSplit <- c()
    for (str in strVec) {
        unlist      <- unlist(strsplit(str, split = split))
        strVecSplit <- c(strVecSplit, unlist)
    }
    if (!simplify) {
        strVecSplit <- lapply(strVec, function(str) {
            unlist(strsplit(str, split = split))
        })
    }
    return(strVecSplit)
}  # Used by strsplit0()