tests/testthat/setup-rtweet.R

In rtweet: Collecting Twitter Data

if (requireNamespace("vcr", quietly = TRUE)) {
  library("vcr") # *Required* as vcr is set up on loading
  invisible(vcr::vcr_configure(
    dir = vcr::vcr_test_path("fixtures"),
    filter_request_headers = list(Authorization = "My oauth token is safe",
                                  GOOGLE_KEY = "My google key is safe.",
                                  GOOGLE_MAPS_KEY = "My google key is safe."),
    filter_query_parameters = c(status = "status message"),
    serialize_with = "json",
    warn_on_empty_cassette = TRUE

  ))
  vcr::check_cassette_names(allowed_duplicates = "lookup_users1")
}