grid.draw继续将表打印到下一页

Question

我有一个60行data.frame。我无法在一个pdf页面中打印它。如何继续将其打印到下一页？

nr=2
nc=1
h=c(0.155,1)
Layout <- grid.layout(nrow=nr,ncol=nc,heights=unit(h, c("null")))
grid.newpage()
pushViewport(viewport(layout = Layout))

print(Empty, vp = subplot(1, 1))

grid.draw(tableGrob(head(display_retail,15),
          show.rownames=F,cols=names,show.box=T,
          separator="black", gp=gpar(fontsize=6, lwd=2),
          vp = subplot(2, 1)))