x <- sprintf("%s%s", LETTERS, 1:26)
txt_next(x, n = 1)
data.frame(word = x,
word_next1 = txt_next(x, n = 1),
word_next2 = txt_next(x, n = 2),
stringsAsFactors = FALSE)
Run the code above in your browser using DataLab