Don't show call when user cancels gadget

2026-02-09 06:04:58 -05:00 · 2015-12-28 13:56:01 -08:00
parent b9c7023489
commit aa296fcb69
1 changed files with 1 additions and 1 deletions
--- 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))
      })
    })
  }