VV
Сделайте вот так и вы получите под гигабайт сожранной оперативки.
library(data.table)
ddd<-lapply(1:50000,function(x) data.table(sample(letters,10)))
rm(ddd)
gc(verbose=T)
Ясное дело, что не надо так делать...
Size: a a a
VV
VV
VV
АК
ddd
.АК
> rm(ddd)
> gc(verbose=T)
Garbage collection 264 = 223+20+21 (level 2) ...
33.8 Mbytes of cons cells used (39%)
789.6 Mbytes of vectors used (66%)
used (Mb) gc trigger (Mb) max used (Mb)
Ncells 632374 33.8 1641816 87.7 1668558 89.2
Vcells 104734405 799.1 157501836 1201.7 104786439 799.5
> exists("ddd")
[1] FALSE
> gc(verbose=T)
Garbage collection 265 = 223+20+22 (level 2) ...
20.5 Mbytes of cons cells used (29%)
6.0 Mbytes of vectors used (1%)
used (Mb) gc trigger (Mb) max used (Mb)
Ncells 382373 20.5 1313453 70.2 1668558 89.2
Vcells 784404 6.0 126001469 961.4 104786439 799.5
АК
a
Ю
Ю
S
Ю
АК
Ю
Ю
e
Я
IM
Я