Return stopApp value without visibility info

2026-02-05 20:25:13 -05:00 · 2015-12-29 15:57:23 -08:00
parent c5fa30f0de
commit aaa05b22df
1 changed files with 2 additions and 2 deletions
--- a/R/server.R
+++ b/R/server.R
@@ -706,9 +706,9 @@ runApp <- function(appDir=getwd(),
    stop(.globals$retval)
  }
  else if (.globals$retval$visible)
-    .globals$retval
+    .globals$retval$value
  else
-    invisible(.globals$retval)
+    invisible(.globals$retval$value)
 }

 #' Stop the currently running Shiny app