tests/testthat/setup.R

# context("Set up")
# file_fl <- file()
# write(paste(c("Y"), collapse = "\n"), file_fl)
# withr::local_options(list(prompt_opts.con = file_fl,.local_envir = teardown_env()))
# withr::defer(close(file_fl), teardown_env())

Try the ready4 package in your browser

Any scripts or data that you put into this service are public.

ready4 documentation built on Sept. 30, 2024, 9:12 a.m.