आर - write_parquet पाश में

fwrite पाशन है पर कई .csv फ़ाइलों में कार्य निर्देशिका लेकिन जब मैं लिखने के लिए एक .parquet यह अधिलेखित कर देता है हर बार.

मैंने कोशिश की है कई दृष्टिकोण, मूल रूप से मैं कोशिश कर रहा हूँ का उपयोग करने के लिए फ़ाइल का नाम मैं करने के लिए रखने के लिए .csv फ़ाइल का नाम के रूप में नीचे दिखाया गया अधिलेखित किए बिना यह.

rm(list = ls())
gc()

# Set up environment #
require("data.table")
require("arrow")

# Set directory to data, define files #
setwd("E:/TransferComplete/07/")

files <- list.files(pattern = "csv")

for (i in files){  setwd("E:/TransferComplete/07/")
loopStart <- Sys.time()
  
  bb <- fread(i,header = TRUE,sep = ",", data.table = FALSE, stringsAsFactors = FALSE,
                select = c("x","y","z"))
  gc()
  
  
  write_parquet(bb,
  'E:/P/i.parquet')
  
  
  loopEnd <- Sys.time()
  loopTime <- round(as.numeric(loopEnd) - as.numeric(loopStart), 0)
}