d1 = list(V1=1L)
class(d1) = c("data.table", "data.frame")
.selfref.ok(d1)
setDT(d1)
.selfref.ok(d1)
saveRDS(d1, f<-tempfile())
d2 = readRDS(f)
.selfref.ok(d2)
invisible(file.remove(f))
setDT(d2)
.selfref.ok(d2)
d3 = unserialize(serialize(d2, NULL))
.selfref.ok(d3)
setDT(d3)
.selfref.ok(d3)
Run the code above in your browser using DataLab