1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
## ----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()
# )
|
