Commit cfd6e78d authored by Midoux Cedric's avatar Midoux Cedric

demo_data in new.env()

parent d69aa8f4
...@@ -127,9 +127,13 @@ observeEvent(input$okData, { ...@@ -127,9 +127,13 @@ observeEvent(input$okData, {
"demo" = "demo" =
{ {
message <- as.character(input$demo) message <- as.character(input$demo)
data(GlobalPatterns) ne <- new.env()
load("demo/demo.RData") if (!is.null(input$demo))
get(input$demo) {
data(GlobalPatterns)
load("demo/demo.RData", envir = ne)
get(input$demo)
}
}, },
"input" = "input" =
{ {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment