将apsrtable输出打印到文件？

Question

有些令人尴尬的问题 - 我无法相信我正在努力解决这个问题：

如何将apsrtable的输出打印到文件？我期待这个工作：

library(apsrtable)
df <- data.frame(x=1:10, y=(1:10)+rnorm(10))
model1 <- lm(y ~ x, data=df)
model2 <- lm(y ~ x + I(x^2), data=df)
print(apsrtable(model1, model2), file="models.tex")

...但是，似乎apsrtable没有带print.apsrtable函数（xtable与print.xtable一起提供的方式）。

从apsrtable输出自动创建.tex文件的正确方法是什么？

提前谢谢你，

阿德里安

Answer 1

写完评论后，我实际查阅了手册：D，发现以下内容： （来自手册）

值 包含乳胶代码行的字符向量。它可以使用writeLines写出，以便通过乳胶文档中的\ input {}包含。

听起来像你想要的那样，是

% writeLines(apsrtable([blahblah]),file="models.tex")

或者与此非常接近的东西。

Answer 2

简单的解决方案就是使用cat()。以下对我有用：

cat(apsrtable(...), file = "model.tex")