demo_data in new.env()

cfd6e78d · Midoux Cedric · d69aa8f4 · cfd6e78d
Commit cfd6e78d authored Apr 21, 2020 by Midoux Cedric
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 3 deletions

panels/dataInput.R panels/dataInput.R +7 -3

No files found.
--- a/panels/dataInput.R
+++ b/panels/dataInput.R
@@ -127,9 +127,13 @@ observeEvent(input$okData, {
        "demo" =
          {
            message <- as.character(input$demo)
-            data(GlobalPatterns)
-            load("demo/demo.RData")
-            get(input$demo)
+            ne <- new.env()
+            if (!is.null(input$demo))
+            {
+              data(GlobalPatterns)
+              load("demo/demo.RData", envir = ne)
+              get(input$demo)
+            }
          },
        "input" =
          {