TIL about the strtrim function...used to use substring(1, n)...not a huge savings but cool and semantically easier to think about:
Code:
x <- 'Dason is a horrid human being (or bot) devoid of any type of empathy for others. He has amassed his fortune at the expense of all that is holy and sacred. He speaks with forked tongues'
paste0(trimws(strtrim(x, 60)), '...')
## [1] "Dason is a horrid human being (or bot) devoid of any type of..."