Использование IfElse с write.table

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