Displaying 1 result from an estimated 1 matches for "extptr2".
Did you mean:
extptr
2007 Aug 03
2
How to properly finalize external pointers?
...ib.ext, sep = "")))
}
openRindex <- function(n=10){
.Call("rindex_open", as.integer(n))
}
closeRindex <- function(extPtr){
.Call("rindex_close", extPtr)
}
if (FALSE){
# now try it
require(rindex)
initRindex()
extPtr <- openRindex()
extPtr
extPtr2 <- closeRindex(extPtr)
extPtr2
gc()
extPtr <- openRindex()
extPtr2 <- extPtr
extPtr2
rm(extPtr)
gc()
extPtr2
rm(extPtr2)
gc()
extPtr2
doneRindex()
}
> version
_
platform i386-pc-mingw32
arch...