From 16c5f4e37726c3ca480e6f0a795f3934b0142ea2 Mon Sep 17 00:00:00 2001
From: Yihui Xie <xie@yihui.name>
Date: Wed, 2 Oct 2013 23:31:59 -0500
Subject: [PATCH] no need to expose the documentation to users; expose
 registerShinyDebugHook to R so that R CMD check does not complain

per discussion in #258, and closes #259
---
 R/utils.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/utils.R b/R/utils.R
index 1159f2b28..a0e18a527 100644
--- 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