# NOT RUN {
tab <- data.frame(cbind(1:4))
tab[1, 2] <- paste(letters, sep = "", collapse = "")
tab[3, 2] <- paste(LETTERS, sep = "", collapse = "")
tab[c(2, 4), 2] <- ""
colnames(tab) <- c("nr", "text")
tab
addLineBreak(tab, length = 12, col = 2)
# }
Run the code above in your browser using DataLab