R：當字符串超出設定長度時，在grid.table內換行文本

Question

我使用gridExtra包內的grid.table以表格格式顯示調查評論列表。當評論（字符串變量）超過給定的長度時，我希望它自動插入換行符「\ n」。

library(gridExtra) 
df<-data.frame(comments = c("Here is a short string", 
"Here is a long string that needs to be broken in half so that it doesn't run off the page", 
"Here is another short string")) 

grid.newpage() 
print(grid.table(df$comments)) 

如果此功能在其他位置可用，我願意使用不同的表格包。

Answer 1

可以使用strwrap，

d = sapply(lapply(df$comments, strwrap, width=50), paste, collapse="\n") 
grid.table(d)