导出具有函数的数据集

Question

我想创建一个在文本模式下导出数据集的函数。我写了

exportTXT=function(data,data2) {
write.table(data,"c:\\data\\data2") }
exportTXT(OJ,"OJ.txt")

没有错误消息，但结果是没有扩展名的c：\ data \ data2 我希望输出是文件OJ.txt。 怎么办？

此致 Mary A. Marion

Answer 1

假设它是R语言，发生的事情是你实际上没有将函数参数传递给函数。 "c:\\data\\data2"是固定的string，因此不会被函数参数修改。此外，如果您使用＆＃34; \＆＃34;可能会遇到问题，您应该在任何平台上使用"/"。修复将具有以下形式：

exportTXT=function(data,file_name) {

#modify path using function argument
file_dest = paste("c:/data",file_name,sep="/")

#write to file
write.table(data,file_dest)}

exportTXT(OJ,"OJ.txt")

当然，上面假设文件路径c:/data存在