1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#' Free Memory Associated with RDF object
#'
#' @param rdf an rdf object
#' @param rm logical, default TRUE. Remove pointer from parent.frame()?
#' Usually a good idea since referring to a pointer after it has been
#' removed can crash R.
#' @details Free all pointers associated with an rdf object.
#' Frees memory associated with the storage, world, and model
#' objects.
#' @export
#' @examples
#' rdf <- rdf()
#' rdf_free(rdf)
#' rm(rdf)
rdf_free <- function(rdf, rm = TRUE){
redland::freeModel(rdf$model)
redland::freeStorage(rdf$storage)
redland::freeWorld(rdf$world)
## Remove pointer if possible
## Since referring to this pointer after it has been
## freed would otherwise just crash R.
if(rm){
rm(list = deparse(substitute(rdf)), envir = parent.frame())
}
}
|
