tests/testthat/helper-vcr.R

In tidytags: Importing and Analyzing 'Twitter' Data Collected with 'Twitter Archiving Google Sheets'

library(vcr)

vcr_dir <- vcr::vcr_test_path("fixtures")

if (!nzchar(Sys.getenv("TWITTER_BEARER_TOKEN"))) {
  if (dir.exists(vcr_dir)) {
    # Fake API token to fool our package
    Sys.setenv("TWITTER_BEARER_TOKEN" = "foobar")
  } else {
    # If there's no mock files nor API token, impossible to run tests
    stop("No API key nor cassettes, tests cannot be run.",
         call. = FALSE)
  }
}

invisible(vcr::vcr_configure(
  dir = vcr_dir,
  # Filter the request header where the token is sent, make sure you know
  # how authentication works in your case and read the Security chapter :-)
  filter_request_headers = list(Authorization = "My bearer token is safe")
))