R/logDebug.r

Defines functions logDebug

logDebug <- function(DebugLevel)
{
#
#
#

  DL1 <- FALSE
  DL2 <- FALSE
  if (is.character(DebugLevel) && DebugLevel=="Normal"){
      DL1 <- TRUE
  } else if (is.character(DebugLevel) && DebugLevel=="Detail"){
      DL1 <- TRUE
      DL2 <- TRUE
  } else if (is.character(DebugLevel) && DebugLevel=="HardCore"){
      # notthing is changed
  } else {
      cat("WARNING: DebugLevel='", DebugLevel,"' is not supported. \n", sep="")
      cat("Default 'Normal' is used. \n")
      DebugLevel <- "Normal"
      DL1 <- TRUE
  }

  invisible(list(DL1,DL2,DebugLevel))

}

Try the PET package in your browser

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

PET documentation built on May 2, 2019, 2:43 a.m.