r - grid.draw 继续打印表格到下一页

Question

我有data.frame60 行。我无法在一个 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)))