allow debugging Shiny server function itself

trestletech · Oct 2, 2013 · bc3322d · bc3322d
1 parent 06c7bf7
commit bc3322d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/shiny.R b/R/shiny.R
@@ -937,6 +937,8 @@ resourcePathHandler <- function(req) {
 #' @export
 shinyServer <- function(func) {
   .globals$server <- func
+  if (!is.null(func))
+    registerDebugHook("server", .globals, "Server Function")
   invisible()
 }