diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-10-26 09:48:31 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-10-26 09:57:56 +0100 |
| commit | dbe59099e4922caad5c0b3c655ae34c336294c28 (patch) | |
| tree | ce0b94cff280aefee2cbc20857a590bb84b872ec | |
| parent | ebc727b44ee55b766835e9b60c5d62450cbe96f7 (diff) | |
Function for removing shared objects from workspace
| -rw-r--r-- | R/gmkinws.R | 12 | ||||
| -rw-r--r-- | data/FOCUS_2006.RData | bin | 6951 -> 16016 bytes | |||
| -rw-r--r-- | data/FOCUS_2006_Z.RData | bin | 51159 -> 110927 bytes |
3 files changed, 12 insertions, 0 deletions
diff --git a/R/gmkinws.R b/R/gmkinws.R index f43c8a1..87eaf8a 100644 --- a/R/gmkinws.R +++ b/R/gmkinws.R @@ -36,6 +36,7 @@ gmkinws <- R6Class("gmkinws", observed = NULL, ds = NA, m = NA, + ftmp = list(Name = ""), f = NA, initialize = function(ds, m, f) { @@ -145,6 +146,17 @@ gmkinws <- R6Class("gmkinws", self$f <- self$f[-i] if (length(self$f) == 0) self$f <- NA invisible(self) + }, + + clear_compiled = function() { + for (i in seq_along(self$m)) { + self$m[[i]]$cf <- NULL + } + self$ftmp$mkinmod$cf <- NULL + for (i in seq_along(self$f)) { + self$f[[i]]$mkinmod$cf <- NULL + } + invisible(self) } ) ) diff --git a/data/FOCUS_2006.RData b/data/FOCUS_2006.RData Binary files differindex d656949..0125b89 100644 --- a/data/FOCUS_2006.RData +++ b/data/FOCUS_2006.RData diff --git a/data/FOCUS_2006_Z.RData b/data/FOCUS_2006_Z.RData Binary files differindex 34cdb5e..be034e2 100644 --- a/data/FOCUS_2006_Z.RData +++ b/data/FOCUS_2006_Z.RData |