R/getText.R

#' @export
getText <- function(text, n, sep = "_"){
    sapply(strsplit(text, split = sep), "[", n)
}
chengvt/cheng documentation built on May 13, 2019, 3:52 p.m.