R: Оберните текст в grid.table, когда строка превышает заданную длину

Question

Я использую grid.table в пакете gridExtra, чтобы отобразить список комментариев для комментариев в формате таблицы. Когда комментарии (строковая переменная) превышает заданную длину, я хочу, чтобы она автоматически вставляла разрыв строки «\ 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)