tests_archive/tests/testthat/helper-auth.R

path <- "api_key.txt"
has_auth <- file.exists(path)

if (has_auth) {
  api_key <- readLines(path)
  set_api_key(api_key)
}
BrianWeinstein/googlenlp documentation built on May 6, 2019, 8:47 a.m.