r-lib/pkgcache
Cache 'CRAN'-Like Metadata and R Packages

Package index
Search the r-lib/pkgcache package
Vignettes
Functions
327
Source code
125
Man pages
32
Home
/
GitHub
/
r-lib/pkgcache
/
tests/testthat/_snaps/auth.md

tests/testthat/_snaps/auth.md
In r-lib/pkgcache: Cache 'CRAN'-Like Metadata and R Packages

looking up auth headers for repositories works as expected

Code
  repo_auth_headers("https://username@ppm.internal/healthz", use_cache = FALSE,
    set_cache = FALSE)
Message
  ! Cannot find credentials for URL <https://username@ppm.internal/healthz>, credential lookup
  failed. Keyring backend: "env".
Output
  $found
  [1] FALSE

  $headers
  character(0)

  $auth_domains
  [1] "https://username@ppm.internal/healthz"
  [2] "https://ppm.internal/healthz"         
  [3] "https://username@ppm.internal"        
  [4] "https://ppm.internal"

  $auth_domain
  [1] NA

  $username
  [1] "username"

  $source
  NULL

  $error
  [1] "keyring lookup failed (env backend)"

Code
  repo_auth_headers(
    "https://username@ppm.internal/cran/__linux__/jammy/latest/src/contrib/PACKAGES.gz",
    use_cache = FALSE, set_cache = FALSE)
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal/cran/latest"

  $username
  [1] "username"

  $source
  [1] "keyring:env"

  $error
  NULL

Code
  repo_auth_headers(
    "https://username@ppm.internal/cran/latest/bin/linux/4.4-jammy/contrib/4.4/PACKAGES.gz",
    use_cache = FALSE, set_cache = FALSE)
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal/cran/latest"

  $username
  [1] "username"

  $source
  [1] "keyring:env"

  $error
  NULL

without keyring

Code
  repo_auth_headers(
    "https://username@ppm.internal/cran/__linux__/jammy/latest/src/contrib/PACKAGES.gz",
    use_cache = FALSE, set_cache = FALSE)
Message
  ! Cannot find credentials for URL <https://username@ppm.internal/cran/__linux__/jammy/latest/src/contrib/PACKAGES.gz>, the keyring package
  is not installed.
Output
  $found
  [1] FALSE

  $headers
  character(0)

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] NA

  $username
  [1] "username"

  $source
  NULL

  $error
  [1] "keyring not installed"

caching

Code
  suppressMessages(repo_auth_headers(
    "https://username@ppm.internal/cran/__linux__/jammy/latest/src/contrib/PACKAGES.gz"))
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal/cran/latest"

  $username
  [1] "username"

  $source
  [1] "keyring:env"

  $error
  NULL

Code
  repo_auth_headers(
    "https://username@ppm.internal/cran/__linux__/jammy/latest/src/contrib/PACKAGES.gz")
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal/cran/latest"

  $username
  [1] "username"

  $source
  [1] "keyring:env:cached"

  $error
  NULL

Code
  pkgenv$credentials[["https://ppm.internal/cran/latest"]]
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal/cran/latest"

  $username
  [1] "username"

  $source
  [1] "keyring:env"

  $error
  NULL

Code
  repo_auth_headers(
    "https://username@ppm.internal/cran/latest/bin/linux/4.4-jammy/contrib/4.4/PACKAGES.gz")
Message
  v Found credentials for repo <https://username@ppm.internal/cran/latest>
  (keyring:env).
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal"

  $username
  [1] "username"

  $source
  [1] "keyring:env"

  $error
  NULL

Code
  repo_auth_headers(
    "https://username@ppm.internal/cran/latest/bin/linux/4.4-jammy/contrib/4.4/PACKAGES.gz")
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal"

  $username
  [1] "username"

  $source
  [1] "keyring:env:cached"

  $error
  NULL

Code
  pkgenv$credentials[["https://ppm.internal"]]
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "https://username@ppm.internal/cran/latest"
  [2] "https://ppm.internal/cran/latest"         
  [3] "https://username@ppm.internal"            
  [4] "https://ppm.internal"

  $auth_domain
  [1] "https://ppm.internal"

  $username
  [1] "username"

  $source
  [1] "keyring:env"

  $error
  NULL

http requests with auth

Code
  readLines(tmp, warn = FALSE)
Output
  [1] "{\"authenticated\":true,\"user\":\"username\"}"

Code
  readLines(tmp, warn = FALSE)
Output
  [1] "{\"authenticated\":true,\"user\":\"username\"}"

Code
  readLines(tmp2, warn = FALSE)
Output
  [1] "{\"authenticated\":true,\"user\":\"username\"}"

Code
  synchronise(download_file(url2, tmp3))
Message
  ! Cannot find credentials for URL <http://username@127.0.0.1:3000/basic-auth/username/token>, credential lookup
  failed. Keyring backend: "env".
  x Did not find credentials for repo
  <http://username@127.0.0.1:3000/basic-auth/username/token>, keyring lookup
  failed (env backend).
Condition
  Error in `stop()`:
  ! Unauthorized (HTTP 401).

Code
  synchronise(download_if_newer(url2, tmp3))
Condition
  Error in `stop()`:
  ! Unauthorized (HTTP 401).

repo with basic auth

Code
  cmc$update()
Message
  ! Cannot find credentials for URL <http://username@127.0.0.1:3000//src/contrib/PACKAGES.gz>, credential lookup
  failed. Keyring backend: "env".
  x Did not find credentials for repo <http://username@127.0.0.1:3000/>, keyring
  lookup failed (env backend).
  v Updated metadata database: <size> <unit> in <num> file<s>.
  i source packages are missing from CRAN: Unauthorized (HTTP 401).
  i Updating metadata database
  v Updating metadata database ... done
Output
  $pkgs
  # A data frame: 0 x 20
  # i 20 variables: repodir <chr>, rversion <chr>, platform <chr>,
  #   needscompilation <chr>, priority <chr>, package <chr>, version <chr>,
  #   ref <chr>, type <chr>, direct <lgl>, status <chr>, target <chr>,
  #   mirror <chr>, sources <list>, filesize <lgl>, sha256 <chr>, sysreqs <lgl>,
  #   built <chr>, published <dttm>, deps <list>
  $deps
  # A data frame: 0 x 7
  # i 7 variables: upstream <chr>, idx <int>, ref <chr>, type <chr>,
  #   package <chr>, version <chr>, op <chr>

Code
  cmc$update()
Message
  v Found credentials for repo <http://username@127.0.0.1:3000/> (keyring:env).
  v Updated metadata database: <size> <unit> in <num> file<s>.
  i Updating metadata database
  v Updating metadata database ... done
Output
  $pkgs
  # A data frame: 3 x 22
    package version md5sum      needscompilation depends repodir rversion platform
    <chr>   <chr>   <chr>       <chr>            <chr>   <chr>   <chr>    <chr>   
  1 pkg1    1.0.0   <md5sum> no               <NA>    src/co~ *        source  
  2 pkg2    1.0.0   <md5sum> no               pkg1    src/co~ *        source  
  3 pkg3    1.0.0   <md5sum> no               pkg2    src/co~ *        source  
  # i 14 more variables: priority <chr>, ref <chr>, type <chr>, direct <lgl>,
  #   status <chr>, target <chr>, mirror <chr>, sources <list>, filesize <int>,
  #   sha256 <chr>, sysreqs <chr>, built <chr>, published <dttm>, deps <list>
  $deps
  # A data frame: 2 x 7
    upstream   idx ref   type    package op    version
    <chr>    <int> <chr> <chr>   <chr>   <chr> <chr>  
  1 pkg2         2 pkg1  depends pkg1    ""    ""     
  2 pkg3         3 pkg2  depends pkg2    ""    ""

basic auth credentials can be extracted from various URL formats

Code
  parse_url_basic_auth("https://user.name:pass-word123@example.com")
Output
  $host
  [1] "example.com"

  $hosturl
  [1] "https://example.com"

  $hostuserurl
  [1] "https://user.name@example.com"

  $repourl
  [1] "https://example.com"

  $repouserurl
  [1] "https://user.name@example.com"

  $username
  [1] "user.name"

  $password
  [1] "pass-word123"

Code
  parse_url_basic_auth("http://user@example.com")
Output
  $host
  [1] "example.com"

  $hosturl
  [1] "http://example.com"

  $hostuserurl
  [1] "http://user@example.com"

  $repourl
  [1] "http://example.com"

  $repouserurl
  [1] "http://user@example.com"

  $username
  [1] "user"

  $password
  [1] ""

Code
  parse_url_basic_auth("https://example.com")
Output
  $host
  [1] "example.com"

  $hosturl
  [1] "https://example.com"

  $hostuserurl
  [1] "https://example.com"

  $repourl
  [1] "https://example.com"

  $repouserurl
  [1] "https://example.com"

  $username
  [1] ""

  $password
  [1] ""

repo_auth_netrc

Code
  repo_auth_netrc("myhost", "myuser")
Output
  [1] "mysecret"
Code
  repo_auth_netrc("myhost", "bad")
Output
  NULL
Code
  repo_auth_netrc("bad", "myuser")
Output
  NULL

Code
  repo_auth_netrc("myhost", "myuser")
Output
  [1] "mysecret"

Code
  repo_auth_netrc("myhost", "myuser")
Output
  [1] "mysecret"

Code
  repo_auth_netrc("myhost", "myuser")
Output
  [1] "mysecret"

Code
  repo_auth_netrc("myhost", "myuser")
Output
  [1] "mysecret"

Code
  repo_auth_netrc("myhost", "myuser")
Output
  [1] "mysecret"

Code
  repo_auth_netrc("myhost", "myuser")
Message
  ! Invalid netrc file at '<tempdir>/<tempfile>': ended while
  parsing a `machine` token.
Output
  NULL

Code
  repo_auth_netrc("myhost", "myuser")
Message
  ! Invalid netrc file at '<tempdir>/<tempfile>': ended while
  parsing `login` token.
Output
  NULL

Code
  repo_auth_netrc("myhost", "myuser")
Message
  ! Invalid netrc file at '<tempdir>/<tempfile>': ended while
  parsing `password` token.
Output
  NULL

Code
  repo_auth_netrc("myhost", "myuser")
Message
  ! Invalid netrc file at '<tempdir>/<tempfile>': found a
  `login` token without a `machine` token.
Output
  NULL

Code
  repo_auth_netrc("myhost", "myuser")
Message
  ! Invalid netrc file at '<tempdir>/<tempfile>': `password`
  token must come after `machine` (or `default`)
  and `login`.
Output
  NULL

Code
  repo_auth_netrc("myhost", "myuser")
Message
  ! Invalid netrc file at '<tempdir>/<tempfile>': unknown token:
  `badtoken`.
Output
  NULL

repo_auth_headers w/ netrc

Code
  repo_auth_headers("http://username@foo.bar.com/path")
Message
  v Found credentials for repo <http://username@foo.bar.com/path> (.netrc).
Output
  $found
  [1] TRUE

  $headers
                 Authorization 
  "Basic dXNlcm5hbWU6dG9rZW4="

  $auth_domains
  [1] "http://username@foo.bar.com/path" "http://foo.bar.com/path"         
  [3] "http://username@foo.bar.com"      "http://foo.bar.com"

  $auth_domain
  [1] "foo.bar.com"

  $username
  [1] "username"

  $source
  [1] ".netrc"

  $error
  NULL

http requests with auth from netrc

Code
  readLines(tmp, warn = FALSE)
Output
  [1] "{\"authenticated\":true,\"user\":\"username\"}"

Code
  readLines(tmp, warn = FALSE)
Output
  [1] "{\"authenticated\":true,\"user\":\"username\"}"


r-lib/pkgcache documentation built on March 1, 2025, 5:52 a.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close