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

library(sdcLog)

user_options <- options()

## ----eval=FALSE---------------------------------------------------------------
# file_connection <- file("path/to/my/log", open = "w")

## ----reset options, include=FALSE---------------------------------------------
options(user_options)