From dbe59099e4922caad5c0b3c655ae34c336294c28 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 26 Oct 2015 09:48:31 +0100
Subject: Function for removing shared objects from workspace

---
 R/gmkinws.R             |  12 ++++++++++++
 data/FOCUS_2006.RData   | Bin 6951 -> 16016 bytes
 data/FOCUS_2006_Z.RData | Bin 51159 -> 110927 bytes
 3 files changed, 12 insertions(+)

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
index d656949..0125b89 100644
Binary files a/data/FOCUS_2006.RData and b/data/FOCUS_2006.RData differ
diff --git a/data/FOCUS_2006_Z.RData b/data/FOCUS_2006_Z.RData
index 34cdb5e..be034e2 100644
Binary files a/data/FOCUS_2006_Z.RData and b/data/FOCUS_2006_Z.RData differ
-- 
cgit v1.2.1