From aaa05b22df2954d590299ee40bdfd2a349eb8a4c Mon Sep 17 00:00:00 2001
From: Joe Cheng <joe@rstudio.com>
Date: Tue, 29 Dec 2015 15:57:23 -0800
Subject: [PATCH] Return stopApp value without visibility info

---
 R/server.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/server.R b/R/server.R
index 597f17e71..ef11c74c6 100644
--- 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