r - 通过 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]通过 R's 传递此参数print.xtable？或者，我如何通过其他方法获得相同的结果（我尝试过\raggedleft，但它只适用于常规tabular对象）？

Answer 1

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

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