tag Shiny server function for special debug treatment if needed

trestletech · Oct 2, 2013 · 9fb61d8 · 9fb61d8
1 parent bc3322d
commit 9fb61d8
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/shiny.R b/R/shiny.R
@@ -938,7 +938,12 @@ resourcePathHandler <- function(req) {
 shinyServer <- function(func) {
   .globals$server <- func
   if (!is.null(func))
+  {
+    # Tag this function as the Shiny server function. A debugger may use this
+    # tag to give this function special treatment.
+    attr(.globals$server, "shinyServerFunction") <- TRUE
     registerDebugHook("server", .globals, "Server Function")
+  }
   invisible()
 }