# First bucket
bkt_prez <- "cencosud.prod.sm.bra.ibopedtm.dado-tratado"

f_fwrite <- function(obj, arq){
  s3write_using(obj, fwrite, bucket = bkt_prez, object = arq)
}

# Tabelas Imersão
xx <- c(glue('Cencosud_QualificacaoEmail.csv'))

for(i in xx)
  fwrite(s3read_using(fread, bucket = bkt_prez, object = i), i, sep = ';', dec = ',')