# NOT RUN {
x <- ff(1:12, pattern="./finalizerdemo")
fnam <- filename(x)
finalizer(x)
is.open(x)
file.exists(fnam)
finalize(x)
finalizer(x)
is.open(x)
file.exists(fnam)
delete(x)
finalizer(x)
is.open(x)
file.exists(fnam)
rm(x)
gc()
# }
Run the code above in your browser using DataLab