通过R'右对齐；s print.xtable

假设我在R中有以下程序来生成LaTeX longtable：

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

---

但是，我希望这张桌子完全向右对齐。在LaTeX中，我只需要使用

\begin{longtable}[r]{rr}

就可以实现这一点，但是如何通过r的

print.xtable

传递这个

[r]

参数呢？或者，如何通过其他方法获得相同的结果（我尝试过

\raggedleft

，但它仅适用于常规的

表格对象）？
作为一种非常粗略的方法，您可以：

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

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