R - write_parquet în buclă

fwrite este looping peste multe .csv fișierele din directorul de lucru, dar cand scriu un .parquet se suprascrie fiecare dată.

Am încercat mai multe abordări, practic eu sunt încercarea de a utiliza fișiere de nume pentru a menține .csv nume de fișier așa cum se arată mai jos, fără a suprascrie-l.

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