R - write_parquet en bucle

fwrite es un bucle a lo largo de muchos .csv los archivos en el directorio de trabajo, pero cuando escribo un .parquet se sobrescribe cada vez.

He intentado varios métodos, básicamente estoy tratando de usar el nombre de archivo que yo para mantener el .csv nombre de archivo como se muestra a continuación sin sobrescribirlo.

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