tronquer la chaîne en r

library(stringr)
str_sub('', 1, 3)
Ugly Unicorn