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

正常に動作しているように見えますが、エラーが発生します: 置換の長さはゼロです

このコードまたはより良い方法を使用するリスクはありますか?

ありがとう