if (nzchar(Sys.getenv("CI"))) {
  message("Using GitHub r-lib CI PAT.")
  github_PAT <- paste0("b2b7441d",
  Sys.setenv(GITHUB_PAT = github_PAT)

pre_test_options <- options(
  usethis.quiet = TRUE,
  ## make ui_*() output easier to test against
  ## just say no to ANSI escape codes
  "crayon.enabled" = FALSE

Try the usethis package in your browser

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

usethis documentation built on July 4, 2019, 5:05 p.m.