Сериализация для списка объектов 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, out_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 
} 

Примечание: исходный код должен быть изменен/продлен, если вы хотите использовать имена вместо числовых значения индекса.