Function for removing shared objects from workspace

1 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)
     }
   )   
 )