Commit cfd6e78d authored by Midoux Cedric's avatar Midoux Cedric

demo_data in new.env()

parent d69aa8f4
......@@ -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" =
{
......
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