Question

我试图创建一个自动R函数，该函数创建一个乳胶文件，可以通过外部Latex程序运行（不需要对Latex代码进行任何进一步修改）。我知道KnitR和Sweave，但我需要更简单的东西。基本上对于任何可以通过xtable打印出来的对象我想添加

％A1在顶部

\documentclass{article}
\pagestyle{empty}
\begin{document}

最后

％A2

\end{document}

这意味着我可以运行我的分析并（当我需要时）创建一个可以由基于Latex的程序操作的外部文件。我对将所有表放入一个文档并不感兴趣，但我希望它们分开（因此需要\ begin {document}和\ end {document}。我一直在尝试使用add.to.rows （xtable函数），但我无处可去。

示例：

data(tli)
tli.table <- xtable(tli[1:10,])
digits(tli.table)[c(2,6)] <- 0
print(tli.table,floating=FALSE)

如何添加A1和A2，以便结果为：

\documentclass{article}
 \pagestyle{empty}
\begin{document}
\begin{table}[ht]
\centering
\begin{tabular}{rrlllr}
  \hline
 & grade & sex & disadvg & ethnicty & tlimth \\ 
  \hline
1 &   6 & M & YES & HISPANIC &  43 \\ 
  2 &   7 & M & NO & BLACK &  88 \\ 
  3 &   5 & F & YES & HISPANIC &  34 \\ 
  4 &   3 & M & YES & HISPANIC &  65 \\ 
  5 &   8 & M & YES & WHITE &  75 \\ 
  6 &   5 & M & NO & BLACK &  74 \\ 
  7 &   8 & F & YES & HISPANIC &  72 \\ 
  8 &   4 & M & YES & BLACK &  79 \\ 
  9 &   6 & M & NO & WHITE &  88 \\ 
  10 &   7 & M & YES & HISPANIC &  87 \\ 
   \hline
\end{tabular}
\end{table}
\end{document}

我一开始就被卡住了：

bottom <- list();bottom$pos<- list()
bottom$pos[[1]] <- c(nrow(x))
bottom$command  <-c("\\end{document} \n")
print(xtable(tli[1:10,]),add.to.row=bottom)

我需要\ end {document}在最后但是如果我改变了

bottom$pos

到

bottom$pos[[1]] <- c(nrow(x)+3)

我收到错误。我还没有包括顶部（A1-见上文）。

理想情况下，我希望代码尽可能通用，以便它可以应用于任何xtable输出（例如anovas，sideway tables等...）。

有什么想法吗？

非常感谢

Answer 1

cat和print.xtable函数都有一个'append'参数：

wrapLatex <- function(dat,fil, ...) {
     cat(c("\\documentclass{article}\n",
           "\\pagestyle{empty}\n",
           "\\begin{document}\n"), file=fil)
   print(dat, file=fil, append=TRUE, ...)
      cat("\\end{document}\n", file=fil, append=TRUE) }
wrapLatex(tli.table, fil="~/test")

来自修正的xtable功能的独立乳胶台

1 个答案: