Chunk a text string into k strings.

chunk_text.R

chunk_text <- function(txt, k) {
  n <- nchar(txt)
  q <- n %/% k
  r <- n %% k
  unlist(lapply(seq.int(1, k), function(i) {
    substr(txt, start = (i - 1)*q + min(i - 1, r) + 1, stop = i * q + min(i, r))
  }), recursive = FALSE)
}