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

## ----setup--------------------------------------------------------------------
library(testthat)

## ----eval = FALSE-------------------------------------------------------------
#  op <- options(reprex.clipboard = FALSE, reprex.html_preview = FALSE)
#  
#  withr::defer(options(op), teardown_env())

## ----eval = FALSE-------------------------------------------------------------
#  withr::local_options(
#    list(reprex.clipboard = FALSE, reprex.html_preview = FALSE),
#    .local_envir = teardown_env()
#  )