既存のcsvファイルに新しい行を追加する

Question

システムの既存のcsvファイルに新しい行を追加したいとします。以下はMWEです。まず、データテーブルを作成し、ファイルに書き込む：今すぐ逆の動作を実行し、既存のファイルから読み込まれ、変数を変更し、既存のファイルに変更されたDataTableを追加しよう

date <- "2017-08-01" 
investPercent<- 20 
expenses <- 20000 
savings <- 30000 
low <- 10 
high <- 20 
objective <-19000 


data<-data.frame(date, investPercent, expenses, savings, low, high, objective) 

write.csv(data, file="./finances.csv", row.names = F) 

：

data<-read.csv("./finances.csv",stringsAsFactors = FALSE) 

date <- Sys.Date() 
investPercent<- 99 
expenses <- 29999 
savings <- 39999 
low <- 19 
high <- 29 
objective <-19999 

dataplus<- data.frame(date, investPercent, expenses, savings, low, high, objective) 
write.csv(dataplus, file="./finances.csv", append = T) 

これは機能しません。finances.csvファイルは完全に書き直され、appendオプションはファイルが文字列の場合にのみ動作するように見えます。

• 既存のcsvファイルに同じサイズのデータ​​テーブルを追加するにはどうすればよいですか？

Answer 1

write.csv()を使用して追加することはできません。代わりにwrite.table()を使用し、いくつかの追加パラメータを指定する必要があります。次の例では、csvファイルに新しい行のデータを追加し、appendの列見出しは省略します。つまり、最初にテーブルを書き込むときに列ヘッダーを含めるだけで済みます。その後、データは同じヘッダーの下に流れなければなりません。

write.table(dataplus, 
      file="./finances.csv", 
      append = T, 
      sep=',', 
      row.names=F, 
      col.names=F)