R: Truncar cadena sin partiendo palabras

Question

tengo montón de cuerdas, algunos de los cuales son bastante largo, así:

movie.titles <- c("Il divo: La spettacolare vita di Giulio Andreotti","Defiance","Coco Before Chanel","Happy-Go-Lucky","Up","The Imaginarium of Doctor Parnassus") 

ahora me gustaría para truncar estas cadenas para un máximo de, digamos, 30 caracteres , pero de tal manera que no se dividen palabras en el proceso e idealmente de tal manera que si la cadena se trunca, se agregan elipses al final de la cadena.

Answer 1

Aquí es una solución basada en R:

trimTitles <- function(titles) { 
    len <- nchar(titles) 
    cuts <- sapply(gregexpr(" ", titles), function(X) { 
      max(X[X<27])}) 
    titles[len>=27] <- paste0(substr(titles[len>=27], 0, cuts[len>=27]), "...") 
    titles 
} 
trimTitles(movie.titles) 
# [1] "Il divo: La spettacolare ..." "Defiance"      
# [3] "Coco Before Chanel"   "Happy-Go-Lucky"    
# [5] "Up"       "The Imaginarium of Doctor ..." 

Answer 2

le recomiendo que eche un vistazo a la función abbreviate. Abre cadenas y permite cierto control. Ver:

http://stat.ethz.ch/R-manual/R-devel/library/base/html/abbreviate.html

Para la página del manual.