# NOT RUN {
## Sample data. Change `n` to larger values to test on larger data
set.seed(1)
n <- 10
mydf <- data.frame(id = sequence(n))
mydf <- within(mydf, {
v3 <- do.call(paste, c(data.frame(matrix(sample(
letters, n*4, TRUE), ncol = 4)), sep = "_"))
v2 <- do.call(paste, c(data.frame(matrix(sample(
LETTERS, n*3, TRUE), ncol = 3)), sep = "."))
v1 <- do.call(paste, c(data.frame(matrix(sample(
10, n*2, TRUE), ncol = 2)), sep = "-"))
})
mydf
cSplit_f(mydf, splitCols = c("v1", "v2", "v3"), sep = c("-", ".", "_"))
# }
Run the code above in your browser using DataLab