mwModule() now return controller value, with possibility to use new …

…clear() method

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: manipulateWidget
 Type: Package
 Title: Add Even More Interactivity to Interactive Charts
-Version: 0.8.0
-Date: 2017-10-26
+Version: 0.8.1
+Date: 2017-11-27
 Authors@R: c(
     person("Francois", "Guillem", email = "[email protected]", role = c("aut", "cre")),
     person("RTE", role = "cph"),

NEWS.md

@@ -1,5 +1,10 @@
 <!-- Copyright © 2016 RTE Réseau de transport d’électricité --->
 
+# manipulateWidget 0.8.1 (2017-11-27)
+
+## New features
+* `mwModule()` now return `controller` value, with possibility to use new `clear()` method
+
 # manipulateWidget 0.8.0 (2017-10-25)
 
 ## New features

R/controller.R

@@ -91,6 +91,10 @@ MWController <- setRefClass(
       invisible(.self)
     },
 
+    clear = function(){
+      rm(list = ls(envir = .self, all.names = TRUE), envir = .self, inherits = TRUE)
+    },
+
     setShinySession = function(output, session) {
       catIfDebug("Set shiny session")
       session <<- session
@@ -155,12 +159,15 @@ MWController <- setRefClass(
 
     updateChart = function(chartId = 1) {
       catIfDebug("Update chart", chartId)
-      e <- new.env(parent = envs$ind[[chartId]]) # User can set values in expr without messing environments
-      charts[[chartId]] <<- eval(expr, envir = e)
-      if (useCombineWidgets) {
-        charts[[chartId]] <<- combineWidgets(charts[[chartId]])
+      if(!is.null(envs)){
+        e <- new.env(parent = envs$ind[[chartId]]) # User can set values in expr without messing environments
+        charts[[chartId]] <<- eval(expr, envir = e)
+        if (useCombineWidgets) {
+          charts[[chartId]] <<- combineWidgets(charts[[chartId]])
+        }
+        renderShinyOutput(chartId)
       }
-      renderShinyOutput(chartId)
+
     },
 
     returnCharts = function() {
@@ -254,6 +261,7 @@ MWController <- setRefClass(
 
     getModuleServer = function() {
       function(input, output, session, ...) {
+
         controller <- .self$clone()
 
         reactiveValueList <- list(...)
@@ -295,6 +303,8 @@ MWController <- setRefClass(
                                     file = con, selfcontained = TRUE)
           }
         )
+
+        return(controller)
       }
     }
   )