R/str_split.R

In sdtm.oak: SDTM Data Transformation Engine

Defines functions str_split str_split_

str_split_ <- function(x, split = ";", quote = '"') {
  scan(
    text = x,
    what = "character",
    sep = split,
    quote = quote,
    quiet = TRUE
  )
}

str_split <- function(x, split = ";", quote = '"') {
  lapply(x, str_split_, split = split, quote = quote)
}

Try the sdtm.oak package in your browser