在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都会计算true和false参数。您想要的是一个普通的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)
}