Text Splitter Demo

script.r

library(data.table)
data <- data.table(id = c("10", "20"), str = c("abcd", "efghijkl"));

substringer <- function(string, splitLength = 10) {
  start <- 1
  end <- splitLength
  out <- c()
  while (start < nchar(string)) {
    out <- c(out, substr(string,start,end))
    end <- end + splitLength
    start <- start + splitLength
  }
  out
}

# note this expects columns id and str
textSplitter <- function(data) {
  strings <- data$str
  output <- data.table()
  for (i in 1:length(strings)) {
    newstrings <- substringer(
                    as.character(data[i,str]))
    tmptable <- data.table(id=rep(data[i,id], length(newstrings)), str=newstrings)
    output <- rbind(output,tmptable)
  }
  output
}

print(textSplitter(data));