R: Truncate chuỗi mà không cần những lời chia

Question

Tôi có bó dây, một số trong đó là khá dài, như vậy:

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

bây giờ tôi muốn cắt ngắn những chuỗi tối đa, nói rằng, 30 ký tự , nhưng theo cách như vậy mà không có từ nào được tách ra trong tiến trình và lý tưởng sao cho nếu chuỗi là các hình elip cắt ngắn được thêm vào cuối chuỗi.

Answer 1

Dưới đây là một giải pháp R-based:

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

tôi sẽ khuyên bạn hãy nhìn vào những abbreviate chức năng. Nó viết tắt các chuỗi và cho phép một số điều khiển. Xem:

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

Đối man page.