no need to expose the documentation to users; expose registerShinyDeb…

…ugHook to R so that R CMD check does not complain per discussion in rstudio#258, and closes rstudio#259
trestletech · Oct 6, 2013 · 16c5f4e · 16c5f4e
1 parent 03a6f17
commit 16c5f4e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -282,8 +282,10 @@ shinyDeprecated <- function(new=NULL, msg=NULL,
 #' @param name Name of the field or object containing the function. 
 #' @param where The reference object or environment containing the function.
 #' @param label A label to display on the function in the debugger.
+#' @noRd
 registerDebugHook <- function(name, where, label) {
   if (exists("registerShinyDebugHook", mode = "function")) {
+    registerShinyDebugHook <- get("registerShinyDebugHook", mode = "function")
     params <- new.env(parent = emptyenv())
     params$name <- name
     params$where <- where