Вывести 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).

Как правильно автоматически создать файл .tex из вывода apsrtable?

Заранее спасибо,

Адриан

Answer 1

Простым решением будет просто использовать cat().У меня работало следующее:

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

Answer 2

После написания моего комментария я действительно посмотрел руководство: D и обнаружил следующее: (из руководства по apsrtable)

Значение Символьный вектор, содержащий строки латексного кода. Его можно записать с помощью writeLines для включения через \ input {} в латексные документы.

Похоже, что вы хотите, то

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

Или что-то близкое к этому.