From aa296fcb69be757a9de907fbfa9ecc2f0be83025 Mon Sep 17 00:00:00 2001
From: Joe Cheng <joe@rstudio.com>
Date: Mon, 28 Dec 2015 13:56:01 -0800
Subject: [PATCH] Don't show call when user cancels gadget

---
 R/server.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/server.R b/R/server.R
index ac432318f..597f17e71 100644
--- a/R/server.R
+++ b/R/server.R
@@ -849,7 +849,7 @@ runGadget <- function(app, server = NULL, port = getOption("shiny.port"),
   if (isTRUE(stopOnCancel)) {
     app <- decorateServerFunc(app, function(input, output, session) {
       observeEvent(input$cancel, {
-        stopApp(stop("User cancel"))
+        stopApp(stop("User cancel", call. = FALSE))
       })
     })
   }