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
This commit is contained in:
Yihui Xie
2013-10-02 23:31:59 -05:00
parent 03a6f1753c
commit 16c5f4e377

View File

@@ -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