将数据表插入文本文件

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)
}

我有两个问题：-

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

邪恶的笑（Evil Grin的缩写）

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_

其次，我试图修改函数，使其将一个文件名作为变量；即< code>xyztoinp

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

这是我的工作代码，

xyztoinp公司

谢谢大家，尤其是@格雷格。ps在函数中不可能改变文件名，但是我对上面的内容很满意。

Answer 1

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

要创建带有格式良好的表格(和其他东西)的自动化报告，最好的方法是创建一个模板并处理它以创建报告。查看knitter包以了解有关执行此操作的详细信息(您也可以使用odfweave包或sweave函数或其他函数，但knitter可能是最通用的)。

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

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