R/debug.R

In manipulateWidget: Add Even More Interactivity to Interactive Charts

Defines functions catIfDebug mwDebugMode mwUndebug mwDebug

mwDebug <- function() {
  options(mwDebug = TRUE)
}

mwUndebug <- function() {
  options(mwDebug = FALSE)
}

mwDebugMode <- function() {
  res <- getOption("mwDebug")
  if (is.null(res)) res <- FALSE
  res
}

catIfDebug <- function(...) {
  if (mwDebugMode()) cat(..., "\n")
}

Try the manipulateWidget package in your browser