通过R的print.xtable右对齐LaTeX长表

Question

假设我在R中有以下程序来生成一个LaTeX长表：

library(xtable)
tabela <- xtabs(Temp ~ Month, airquality)
xtabela <- xtable(tabela)
print.xtable(xtabela, tabular.environment = 'longtable', floating = FALSE)

哪一项会产生

\begin{longtable}{rr}
  \hline
 & Month \\ 
  \hline
5 & 2032.00 \\ 
  6 & 2373.00 \\ 
  7 & 2601.00 \\ 
  8 & 2603.00 \\ 
  9 & 2307.00 \\ 
   \hline
\hline
\end{longtable}

但是，我希望这张桌子完全靠右对齐。在LaTeX中，我只需要使用\begin{longtable}[r]{rr}来实现这一点，但是如何通过R的print.xtable传递这个[r]参数呢？或者，我如何通过其他方法实现相同的结果(我尝试过\raggedleft，但它只适用于常规的tabular对象)？

Answer 1

作为一种非常粗略的方法，您可以这样做：

cat(paste(c("\\begin{longtable}[r]{", align(xt), "}\n"), collapse=""))
print(xtabella, only.contents=T)    
cat("\\end{longtable}\n")