Как добавить, используя write.table, но только если имена col.name появляются один раз (вверху выходного файла)?

Question

У меня есть цикл, который создает / добавляет к CSV. Я использую write.table(df, "file.csv", sep=",", append=T, col.names=T) внутри цикла (необходимо записывать на диск каждую итерацию цикла по несвязанным причинам).

Теперь это повторяет имена столбцов при каждом добавлении (понятно, так как это было предписано сделать).

С некоторой логикой можно избежать повторных заголовков, например,

if(!exists("file.csv")) { 

  # Provide col names first time only
  write.table(df, "file.csv", sep=",", append=T, col.names=T) 

  } else {

  # Don't provide col names beyond the first time
  write.table(df, "file.csv", sep=",", append=T) 

}

Есть ли что-то (намного) проще?

Answer 1

Вы можете сделать это за 1 ход с:

write.table(df, "file.csv", append=T, col.names=!file.exists("file.csv"))