使用带有write.table的ifelse

Question

我正在使用ifelse编写一个文件：

ifelse("out.csv" %in% list.files(),
       write.table(summary, "out.csv", sep=",", col.names=FALSE, row.names=FALSE, append=TRUE),
       write.table(summary, "out.csv", sep=",", row.names=FALSE)
)

它似乎工作正常但引发错误：替换长度为零

使用此代码或更好的方法做任何风险？

谢谢

Answer 1

如帮助指出， ifelse不管条件如何的价值评估真假争论双方 。 你想要的是一个简单的if 。

if("out.csv" %in% list.files()) {
   write.table(summary, "out.csv", sep=",", row.names=FALSE,
       col.names=FALSE, append=TRUE)
} else {
   write.table(summary, "out.csv", sep=",", row.names=FALSE)
}