## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Turn logger off
#  options("logr.on" = FALSE)
#  
#  # Turn logger on and show notes
#  options("logr.on" = TRUE, "logr.notes" = TRUE)
#  
#  # Turn off notes
#  options("logr.notes" = FALSE)

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Turn autolog on
#  options("logr.autolog" = TRUE)
#  
#  # Turn autolog off
#  options("logr.autolog" = FALSE)
#  

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Turn on compact option
#  options("logr.compact" = TRUE)
#  
#  # Turn off compact option
#  options("logr.compact" = FALSE)

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Turn on traceback messaging
#  options("logr.traceback" = TRUE)
#  
#  # Turn off traceback messaging
#  options("logr.traceback" = FALSE)

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Get warnings from function
#  w1 <- get_warnings()
#  
#  # Get warnings from global variable
#  w2 <- getOption("logr.warnings")

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Print log to stdout (console)
#  options("logr.stdout" = TRUE)

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Restore printing
#  options("logr.stdout" = FALSE)
#  
#  # Remove stdout option
#  options("logr.stdout" = NULL)

## ----eval=FALSE, echo=TRUE----------------------------------------------------
#  # Restore printing
#  options("logr.linesize" = 100)
#