fwrite
je opakovanie v priebehu mnohých .csv
súbory v pracovnom adresáry, ale keď som sa napísať .parquet
to prepíše každý čas.
Snažil som sa niekoľko prístupov, v podstate som sa snažia používať názov súboru som udržať .csv
názov súboru, ako je uvedené nižšie, bez prepísanie.
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)
}