我明白了。我可能会添加写入 csv 功能,因为我经常看到这个请求。
不过,最好的跟踪方法是在 github https://github.com/xiaodaigh/disk.frame/issues 上提交问题,这次我已经做到了,请参阅 https://github.com/xiaodaigh/disk.frame/issues/311
如果您想将每个块写入单独的 CSV,只需这样做
df %>%
cimap(function(id, chunk) {
data.table::fwrite(chunk, file.path("some/path/", paste0(id, ".csv"))
NULL # return null since you don't need to return anything
}, lazy=FALSE)
例如
library(disk.frame)
a = as.disk.frame(nycflights13::flights)
cimap(a, function(chunk, id) {
data.table::fwrite(chunk, file.path(tempdir(), paste0(id, ".csv")))
NULL
}, lazy=FALSE)
dir(tempdir())
如果您想写入一个文件,只需修改为通过append=TRUE 写入一个文件,但请确保关闭多个工作器!
setup_disk.frame(workers = 1) # only one worker
cmap(a, function(chunk) {
data.table::fwrite(chunk, file.path(tempdir(), "one_file.csv"), append = TRUE)
NULL
}, lazy=FALSE)
setup_disk.frame() # turn multi worker back on
dir(tempdir())