tests/testthat/setup-auth.R

if (secret_can_decrypt("bigrquery")) {
  json <- secret_read("bigrquery", "service-token.json")
  set_service_token(rawToChar(json))
}
wilpoole-essence/bigrquery documentation built on May 6, 2019, 8:06 p.m.