R：格式化文本文件输出

Question

有人可以帮我解决如何格式化文本文件，如下图所示的格式吗？ 我正在使用R 2.12.2，因此无法使用更高版本的功能。

我尝试过使用writeLine，sprintf和capture.output，但没有一个有用.. :(

f_output <- file("sample.txt")
writeLines("D8060WK2LA MET1_PAT__ mpy Trend [5300 2450 2050]\n",f_output)
capture.output(summary(lm_out),file="sample.txt",append=T)
capture.output(anova_out,file="sample.txt",append=T)
close(f_output)

Answer 1

我建议尝试sink，如：

sink('sample.txt') # open sink
# run all of your code
sink() # close sink

你应该得到你想要的东西。