将数据表插入文本文件

Question

我编写了一个函数，允许我从剪贴板中取出四列数据，拆分它，添加一个额外的列，重新组合它，然后将其导出为文本文件。

xyztoinp <- function(x) {
    x <- read.table(file="clipboard") 
    a <- x[,-1] 
    b <- x[,1]
    c <- ifelse(b == "C", 6,
    ifelse (b == "O", 8,ifelse (b == "H", 1, 3)))
    x <- cbind(b,c,a)
    write.table(x, file="IRCoutput", quote = FALSE,
    sep = "\t", row.names = FALSE, col.names = FALSE)
}

我有两个问题：-

是否可以创建一个文件，其中包含我使用此函数创建的表格，以便将表格粘贴到某些文本的中间？

例如

text_text_text_text_text_text_text_
text_text_text_text_text_text_text_

Neatly formated table

text_text_text_text_text_text_text_
text_text_text_text_text_text_text_

其次，我尝试修改函数，使其将文件名作为变量；即xyztoinp <- function(x, NewFileName) {

等等... 但这并没有产生带有新文件名的输出；有人知道这是怎么做到的吗？

这是我的工作代码，

xyztoinp x 一个 b c ifelse (b == "O", 8,
ifelse (b == "H", 1, 3)))
x zz 猫（“文本”， "文字",
“文字”，
"",
“文字”，
“文字”，
"文本", 文件 = zz, sep = "\n")
write.table(x, 文件=zz, 引用 = FALSE,
sep = "\t", row.names = FALSE, col.names = FALSE)
猫（“文本”，文件=zz）
关闭(zz)
}

谢谢大家，尤其是@Greg。 ps 无法更改函数中的文件名，但我对上述内容感到满意。

Answer 1

人们希望将表格（或图表、输出或...）插入文本的一般原因是创建某种自动报告（如果不是您的情况，请提供更多详细信息，以便我们回答实际问题）。

要使用格式良好的表格（和其他内容）创建自动报告，最好的方法是创建一个模板并对其进行处理以创建报告。查看 knitr 包以了解有关执行此操作的详细信息（您也可以使用 odfweave 包或 sweave 函数或其他功能，但 knitr 可能是最通用的）。

如果您不想预先创建报告模板，另一种选择是 pander 包。

切换到 pander 或 knitr 也可能会解决您的第二个问题，但如果没有，那么我们将需要看看您尝试了什么以及发生了什么，以了解它为什么不起作用以及如何提供帮助。