beg2char(text.var, char = " ", noc = 1, include = FALSE)char2end(text.var, char = " ", noc = 1, include = FALSE)
TRUE includes the character in the grab.returns a vector of text with char on/forward removed.
beg2char - Grab from beginning of string to a character(s).
char2end - Grab from character(s) to end of string.
## <strong>Not run</strong>: # x <- c("a_b_c_d", "1_2_3_4", "<_?_._:") # beg2char(x, "_") # beg2char(x, "_", 2) # beg2char(x, "_", 3) # beg2char(x, "_", 4) # beg2char(x, "_", 3, include=TRUE) # # char2end(x, "_") # char2end(x, "_", 2) # char2end(x, "_", 3) # char2end(x, "_", 4) # char2end(x, "_", 3, include=TRUE) # # x2 <- gsub("_", " ", x) # char2end(x2, " ", 2) # beg2char(x2, " ", 2) # # x3 <- gsub("_", "\\^", x) # char2end(x3, "^", 2) # beg2char(x3, "^", 2) # ## <strong>End(Not run)</strong>