从 .RData 文件加载前 N 行

Question

我用谷歌搜索，但我找不到我的问题的答案。 像scan （ base包）和fread （ data.table包）这样的函数在从用户指定的 .txt 或 .csv 中读取前 N 行方面做得非常好。 但是，当涉及到 .RData 时， load会加载整个文件，并且无法指定从中读取多少个值。

我有超过 3GB 的 .RData 文件，每个文件都包含一个data.frame或data.table ，并不总是需要加载整个文件，而只是，比如说，对象的前 100 或 1,000 行. 有没有办法做到这一点？

Answer 1

我的猜测是没有现成的解决方案。

如果我们查看一个示例、ASCII 编码、未压缩的 RDS 文件，我们会看到它以列主要顺序存储：

saveRDS(mtcars[1:5, 1:2], "testrds.rds", ascii = TRUE, compress = FALSE)

产生这个文件（我插入了注释）

A        ## ASCII file
3        ## some version info and ??
262146
197888
6
CP1252
787
2
14
5       ## This seems to indicate 5 items in this vector (column)
21      ## first column starts here (but how would you know?)
21
22.8
21.4
18.7    ## first column ends here
14
5       ## Again, This seems to indicate 5 items in this vector (column)
6       ## second column starts here
6
4
6
8       ## second column ends here
1026
1
262153    # Attributes start here: names, row.names, class 
5
names                ## col names
16
2
262153
3
mpg                  ### first col name
262153
3
cyl                  ### second col name
1026
1
262153
9
row.names            ## 2nd attribute: row.names 
16
5
262153
9
Mazda\040RX4         ### first row name
262153
13
Mazda\040RX4\040Wag  ### second row name
262153
10
Datsun\040710        ### ...
262153
14
Hornet\0404\040Drive
262153
17
Hornet\040Sportabout ### last row name
1026
1
262153
5
class                ## 3rd attribute: class
16
1
262153
10
data.frame           ### value of class
254

正如您在这个简单的 RDS 文件中看到的那样，读取前几行数据仍然需要解析整个文件，并且需要知道要跳过哪些行。 并且您需要比R Internals文档中更多的 RDS 文件文档。

基于这个简单的例子，人们可能会做出一些猜测并得到一个粗略的草稿函数，它适用于你知道是数据帧的 RDS 文件，但这需要一些工作——如果你想确保它是足够强大以处理更复杂的数据帧（例如，具有factor和Date列）。 如果您有 RData 文件，它们将具有类似但稍微复杂一些的格式，因为它们可以处理多个对象。

总而言之，我认为 RDS 和 RData 是您可能想要部分加载的数据的糟糕选择。 您最好使用 CSV 或 TSV，然后您可以使用您在问题中提到的标准选项（或vroom::vroom ）仅将您想要的数据加载到内存中。

Answer 2

这个简单的工作怎么样？

my_data <- head(readRDS("my_data.RDS"), n = 1000)

将head()的n参数设置为您需要的任何参数。

如果你打算经常这样做，你甚至可以让自己成为一个小功能。

read_rds <- function(file, n) {
  # note file can either be a connection object or a character string containing a path
  return(head(readRDS(file), n))
} 

Answer 3

尝试 read_lines_raw：

first_1000 <- read_lines_raw(rdata_filename,skip=0,n_max = 1000)