ffdf对象列表的序列化

Question

我有一个列表，Z，其中每个Z[[i]]是一个ffdf对象。

我的问题是如何将Z保存到磁盘以供将来的会话使用，可能使用的内容如save.ffdf。

Z <- list() 
for(i in 1:10) { 
    Z[[i]] <- as.ffdf(data.frame(array(1,dim=c(2,10)))) 
} 

is(Z[[1]]) 
is(Z) 

Answer 1

您可以使用ffsave()保存对象的列表，但它预计，在当前的环境下得到解决的名单。但是，您可以编写自己的帮助函数，将列表中的每个对象（df）放入一个变量中，并使用ffsave来保存这些对象。事情是这样的：

saveList <- function(lst, fname) { 
    outlist = c() 
    for (i in 1:length(lst)) { 
     name = paste0('out_',i) 
     outlist = c(outlist, name) 
     assign(name, lst[[i]]) 
    } 
    ffsave(list=outlist, file=fname) 
} 

当加载该文件与ffload()你会得到一堆对象的名称OUT_1，输出2插孔的，...在当前的环境。你可能不希望这样，所以你需要另一个辅助函数来把东西放回列表：

loadList <- function(fname) { 
    ffload(fname) 
    objs = ls(pattern="out") 
    outlist = list() 
    for (o in objs) { 
     idx= as.integer(strsplit(o,"_")[[1]][2]) 
     outlist[[idx]] = get(o) 
    } 
    outlist 
} 

注：源代码必须修改/扩展如果要改为使用的数字名称索引值。