Splitting vector into smaller chunks by a separator and extracting chunk(s)

split_vector.R

#
# Splitting vector into smaller chunks by a separator and extracting chunk(s)
#

split_vector <- function (x, sep, column){
#  sapply(x, function(x) strsplit(x, split = sep, fixed = T)[[1]][column], USE.NAMES = F)
  unlist(lapply(x, function(x) strsplit(x, sep, fixed = T)[[1]][column]))
}

# Test
vect <- c("a.b.c", "d.e.f")
split_vector(vect, ".", 2)
[1] "b" "e"