我一直在使用src_postgres连接到redshift数据库并读取近350百万条记录。我正在使用以下查询，这是迄今为止最快的记录读取方法：（花费不到1秒的时间即可读取3.5亿条记录）
df <- tbl(con,sql("select * from table"))
在通过dplyr软件包进行了大量处理之后，我尝试使用以下命令将输出写回到txt文件：
df %>% write.csv(.,file = "file1.txt",na = "",row.names=F)
这里的问题是耗时超过30分钟非常慢。 由于它不是数据帧，因此我无法使用fwrite或任何等效项。 我也尝试过使用“分块”程序包，这似乎又很慢。 有人可以分享更好的想法，以更快的方式将tbl对象写入TXT吗？