使用帶有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)
}