捕获行数&;data.table包中fread成功后的其他统计信息

捕获行数&;data.table包中fread成功后的其他统计信息,r,data.table,R,Data.table,成功调用fread后,如果“显示进度”至少为TRUE,则显示诊断从HH:MM:SS中的GB文件中读取X行和y(共z)列。我有一个函数在一个循环中有多个fread调用,我想累积行数,可能还有时间。有可能吗?查看文档,我没有看到fread返回数据表/帧以外的任何内容 多谢各位 更新-示例类似代码 Parse如果你在一个函数中有这个函数,你可以只打印dim和每次fread之后的时间…@drmariod我将处理后的结果保存到不同的文件中,并且实际上调用write.table调用中的data.table例

成功调用
fread
后,如果“显示进度”至少为TRUE,则显示诊断
从HH:MM:SS
中的GB文件中读取X行和y(共z)列。我有一个函数在一个循环中有多个
fread
调用,我想累积行数,可能还有时间。有可能吗?查看文档,我没有看到
fread
返回数据表/帧以外的任何内容

多谢各位

更新-示例类似代码
Parse如果你在一个函数中有这个函数,你可以只打印
dim
和每次
fread
之后的时间…@drmariod我将处理后的结果保存到不同的文件中,并且实际上调用write.table调用中的data.table例程作为“x=a[I,j,by]”,但是你是对的,如果没有固有数据,我可以将其分离出来并累积dim。表答案。谢谢您不显示代码有什么原因吗?听起来这是对新函数的一个很好的功能要求,
freadlist
。即使将dim相加,也不会有内存大小或使用的时间。我猜你的意思是像
raw\u datasets=lappy(file\u path,fread)
lappy(file\u path,{…fread…})
以及其他步骤。我经常这样做。@cory不确定这是否会有帮助,因为它没有什么特别之处,但让我来清理一下,我会帮你贴出来的。
Parse <- function(Years, Prefix, OutHeader){
  for (Year in Years) {
      [Snip unnecessary code]
      Filename <- SomeFunctionOf(Years)
      P <- fread(FileName, colClasses = ColClasses__P, header = TRUE, select = NeededColumns_P)
      Stats <- P[, .(A = sum(A, na.rm = TRUE), CurCount = .N,
                    B = sum(B), Z = sum(Z > 0, na.rm = TRUE)), by = G]
      setkey(Stats, G)
      write.csv(Stats, paste0(OutHeader, '_Identifier_', Year, '.csv'), row.names = FALSE)
      rm(P, Stats)
      gc()
  }
}