tests/testthat/helper-vcr.R

In air: AI Assistant to Write and Understand R Code

library("vcr") # *Required* as vcr is set up on loading

with_stubbed_credentials({
  invisible(vcr::vcr_configure(
    filter_sensitive_data = list(
      "<<<api_key>>>" = air:::get_key() |> result::value(),
      "<<<api_model>>>" = air:::get_model() |> result::value()
    ),
    dir = vcr::vcr_test_path("fixtures")
  ))
})