More tests

smoketests/stacktrace5/R.out.save

@@ -0,0 +1,11 @@
+Loading required package: shiny
+Loading required package: methods
+
+Listening on http://127.0.0.1:8765
+Warning: Error in badservercall: server boom
+Stack trace (innermost first):
+    41: badservercall [${PWD}/stacktrace5/server.R#4]
+    40: server [${PWD}/stacktrace5/server.R#9]
+     1: shiny::runApp [${SHINY}/R/server.R#685]
+Error in badservercall() : server boom
+NULL

smoketests/stacktrace5/server.R

@@ -0,0 +1,10 @@
+library(shiny)
+
+badservercall <- function() {
+  stop("server boom")
+}
+
+function(input, output, session) {
+  on.exit(stopApp())
+  badservercall()
+}

smoketests/stacktrace5/ui.R

@@ -0,0 +1,4 @@
+library(shiny)
+
+ui <- fluidPage(
+)

smoketests/stacktrace6/R.out.save

@@ -0,0 +1,21 @@
+Loading required package: shiny
+Loading required package: methods
+
+Listening on http://127.0.0.1:8765
+Warning: Error in baduicall: ui boom
+Stack trace (innermost first):
+    51: baduicall [${PWD}/stacktrace6/ui.R#5]
+    50: tag
+    49: tags$div
+    48: div
+    47: wellPanel [${SHINY}/R/bootstrap.R#320]
+    46: tag
+    45: tags$div
+    44: div
+    43: tagList
+    42: attachDependencies
+    41: bootstrapPage [${SHINY}/R/bootstrap.R#56]
+    40: fluidPage [${SHINY}/R/bootstrap-layout.R#72]
+     1: shiny::runApp [${SHINY}/R/server.R#685]
+Error in baduicall() : ui boom
+NULL

smoketests/stacktrace6/server.R

@@ -0,0 +1,4 @@
+library(shiny)
+
+function(input, output, session) {
+}

smoketests/stacktrace6/ui.R

@@ -0,0 +1,10 @@
+library(shiny)
+
+baduicall <- function() {
+  stopApp()
+  stop("ui boom")
+}
+
+ui <- fluidPage(
+  wellPanel(baduicall())
+)