Authentication
Arguments
- user
(character) username, required. see Details.
- pwd
(character) password, required. see Details.
- auth
(character) authentication type, one of basic (default), digest, digest_ie, gssnegotiate, ntlm, or any. required
Details
Only supporting simple auth for now, OAuth later maybe.
For user and pwd you are required to pass in some value.
The value can be NULL to - which is equivalent to passing in an
empty string like "" in httr::authenticate. You may want to pass
in NULL for both user and pwd for example if you are using
gssnegotiate auth type. See example below.
Examples
auth(user = "foo", pwd = "bar", auth = "basic")
#> $userpwd
#> [1] "foo:bar"
#>
#> $httpauth
#> [1] 1
#>
#> attr(,"class")
#> [1] "auth"
#> attr(,"type")
#> [1] "basic"
auth(user = "foo", pwd = "bar", auth = "digest")
#> $userpwd
#> [1] "foo:bar"
#>
#> $httpauth
#> [1] 2
#>
#> attr(,"class")
#> [1] "auth"
#> attr(,"type")
#> [1] "digest"
auth(user = "foo", pwd = "bar", auth = "ntlm")
#> $userpwd
#> [1] "foo:bar"
#>
#> $httpauth
#> [1] 8
#>
#> attr(,"class")
#> [1] "auth"
#> attr(,"type")
#> [1] "ntlm"
auth(user = "foo", pwd = "bar", auth = "any")
#> $userpwd
#> [1] "foo:bar"
#>
#> $httpauth
#> [1] -17
#>
#> attr(,"class")
#> [1] "auth"
#> attr(,"type")
#> [1] "any"
# gssnegotiate auth
auth(NULL, NULL, "gssnegotiate")
#> $httpauth
#> [1] 4
#>
#> attr(,"class")
#> [1] "auth"
#> attr(,"type")
#> [1] "gssnegotiate"
if (FALSE) {
# with HttpClient
(res <- HttpClient$new(
url = "https://hb.opencpu.org/basic-auth/user/passwd",
auth = auth(user = "user", pwd = "passwd")
))
res$auth
x <- res$get()
jsonlite::fromJSON(x$parse("UTF-8"))
# with HttpRequest
(res <- HttpRequest$new(
url = "https://hb.opencpu.org/basic-auth/user/passwd",
auth = auth(user = "user", pwd = "passwd")
))
res$auth
}