Fix refresh issue

earnaud · Mar 3, 2022 · 52f6170 · 52f6170
1 parent 2095afa
commit 52f6170
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -10,7 +10,8 @@ users = reactiveValues(count = 0)
 server <- function(input, output, session) {
   # get variables & clean
   args <- base::get("metashark.args", envir = .GlobalEnv)
-  rm("metashark.args", envir = .GlobalEnv)
+  if(main.env$dev)
+    rm("metashark.args", envir = .GlobalEnv)
 
   # Setup environment
   main.env <- .globalScript(

diff --git a/R/runMetashark.R b/R/runMetashark.R
@@ -61,7 +61,7 @@ runMetashark <- function(...) {
 
   # Set args in environment
   assign("metashark.args", args, envir = .GlobalEnv)
-  on.exit(rm("metashark.args", envir = .GlobalEnv))
+  # on.exit(rm("metashark.args", envir = .GlobalEnv))
 
   # Settings =====
   # Set resourcePaths