demo_data in new.env()

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" =
           {