Выровняйте правые длинные таблицы LaTeX через print.xtable в R

Question

Скажем, у меня есть следующая программа на R для создания longtable 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 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")