print.xtable退出页面

Question

我正在生成一系列表，作为“ for循环”的一部分。但是，有时其中一张表会进入“页脚空间”（请参见所附的.png图像）。这是knitr中的相关代码块：

<<historiesOmitsAndOutliers,echo=FALSE,results='asis'>>=
for (i in 1:length(histories)) {
  cat("\\FloatBarrier")
  thisTable <- histories[[i]]
  print(xtable(thisTable,digits=c(rep(0,4),2,2,0,2,0),
       caption=paste0("tableCaption"),label=paste0("tab:history",i)),
       caption.placement="top",
       include.rownames=FALSE,
       size="scriptsize",
       table.placement="!ht", 
       tabular.environment="longtable",
       floating=FALSE,    
       sanitize.text.function=function(x) {gsub("_","\\_",x,fixed=TRUE)})
  cat("\\FloatBarrier")
}
@

有什么建议吗？

谢谢你， 拉米罗 example