Когда я печатаю настольного робота, на нем отображается только небольшое окно просмотра, как показано ниже. 
Я использовал следующий скрипт для печати таблицы в формате pdf
library(gridExtra)
library(grid)
mySummaryOfMyData <- summary(someDataframe)
grid.newpage()
mytt1 <- ttheme_default(base_size = 4, base_colour = "blue")
psummary <- gridExtra::tableGrob(as.matrix(mySummaryOfMyData), theme=mytt1)
grid.draw(psummary)
Как я могу отобразить незарезанные данные в полном PDF-файле?