R/debug.R

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

Any scripts or data that you put into this service are public.

manipulateWidget documentation built on May 2, 2019, 4:01 a.m.