R/strsplit1.R

In fabbiocrux/regexcite: Learning to do package development with the example of Regxcite from the

#' Split a string
#'
#' @param x A character vector with one element.
#' @param split What to split on.
#'
#' @return A character vector
#' @export
#'
#' @examples
#' x <- "alfa,bravo,charlie,delta"
#' strsplit1(x, split = ",")
strsplit1 <- function(x, split) {
   strsplit(x, split = split)[[1]]
}