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