## -----------------------------------------------------------------------------
options(option_to_set = "value")

## -----------------------------------------------------------------------------
withr::with_options(list(digits = 3), print(pi))

## -----------------------------------------------------------------------------
getOption("option_to_set")