tests/testthat/_snaps/oauth-cache.md

In ropenscilabs/gauth: Utilities for Working with Google APIs

cache_establish() insists on sensible input

Code
  cache_establish(letters[1:2])
Condition
  Error in `cache_establish()`:
  ! `cache` must have length 1, not 2.

Code
  cache_establish(1)
Condition
  Error in `cache_establish()`:
  ! `cache` must be logical or character, not the number 1.

Code
  cache_establish(list(1))
Condition
  Error in `cache_establish()`:
  ! `cache` must be logical or character, not a list.

cache_clean() works

Code
  cache_clean(cache_folder, "apple")
Message
  v Deleting 1 token obtained with an old tidyverse OAuth client.
  i Expect interactive prompts to re-auth with the new client.
  ! Is this rolling of credentials highly disruptive to your workflow?
    That means you should rely on your own OAuth client (or switch to a service
    account token).
    Learn more these in these articles:
    <https://gargle.r-lib.org/articles/get-api-credentials.html>
    <https://gargle.r-lib.org/articles/non-interactive-auth.html>
Output
  [1] TRUE

cache_load() repairs tokens stored with names != their hash

Code
  writeLines(out)
Output
  ! Cache contains tokens with names that do not match their hash:
  * "[e-mail]" (name)
  * '{TOKEN_HASH}[e-mail]' (hash)
  * "[e-mail]" (name)
  * '{TOKEN_HASH}[e-mail]' (hash)
    Will attempt to repair by renaming

token_match() finds a match based on domain

Code
  m <- token_match("abc_*@example.org", one_match_of_two)
Message
  i The gargle package is using a cached token for '[e-mail]'.

token_match() scolds but returns short hash match when non-interactive

Code
  m <- token_match("abc_", one_existing)
Message
  ! Using an auto-discovered, cached token.
    To suppress this message, modify your code or options to clearly consent to
    the use of a cached token.
    See gargle's "Non-interactive auth" vignette for more details:
    <https://gargle.r-lib.org/articles/non-interactive-auth.html>
  i The gargle package is using a cached token for '[e-mail]'.

Code
  m <- token_match("abc_*", one_existing)
Message
  i The gargle package is using a cached token for '[e-mail]'.

Code
  m <- token_match("abc_", two_existing)
Message
  i Suitable tokens found in the cache, associated with these emails:
  * '[e-mail]'
  * '[e-mail]'
    Defaulting to the first email.
  ! Using an auto-discovered, cached token.
    To suppress this message, modify your code or options to clearly consent to
    the use of a cached token.
    See gargle's "Non-interactive auth" vignette for more details:
    <https://gargle.r-lib.org/articles/non-interactive-auth.html>
  i The gargle package is using a cached token for '[e-mail]'.

Code
  m <- token_match("abc_*", two_existing)
Message
  i Suitable tokens found in the cache, associated with these emails:
  * '[e-mail]'
  * '[e-mail]'
    Defaulting to the first email.
  ! Using an auto-discovered, cached token.
    To suppress this message, modify your code or options to clearly consent to
    the use of a cached token.
    See gargle's "Non-interactive auth" vignette for more details:
    <https://gargle.r-lib.org/articles/non-interactive-auth.html>
  i The gargle package is using a cached token for '[e-mail]'.

gargle_oauth_sitrep() works with a cache

Code
  writeLines(out)
Output
  2 tokens found in this gargle OAuth cache:
  '{path to gargle oauth cache}'

  email         client      scopes hash...   
  _____________ ___________ ______ __________
  [e-mail] gargle-clio        {hash...}
  [e-mail] gargle-clio        {hash...}

gargle_oauth_sitrep() consults the option for cache location

Code
  writeLines(out)
Output
  i Taking cache location from the `"gargle_oauth_cache"` option.
  1 token found in this gargle OAuth cache:
  '{path to gargle oauth cache}'

  email         client      scopes hash...   
  _____________ ___________ ______ __________
  [e-mail] gargle-clio        {hash...}

ropenscilabs/gauth documentation built on Sept. 11, 2023, 6:20 a.m.