Using the username/pwd Cushion implementation suggested in the docs, I get a 401 Authentication Error from the URL I am trying to access when I ping it. It looks like this can be fixed through adding argument labels to the function.
Session Info
```r
# function that DOES NOT work and produces authentication error later
ping <- function(cushion, as = 'list', ...) {
check_cushion(cushion)
sofa_GET(cushion$make_url(), as = as, args = NULL, cushion$get_headers(),
cushion$get_auth(), ...)
}
# function that does not produce authentication error
ping <- function(cushion, as = 'list', ...) {
check_cushion(cushion)
sofa_GET(cushion$make_url(), as = as, args = NULL, headers = cushion$get_headers(),
auth = cushion$get_auth(), ...)
```
Using the username/pwd Cushion implementation suggested in the docs, I get a 401 Authentication Error from the URL I am trying to access when I ping it. It looks like this can be fixed through adding argument labels to the function.
Session Info
```r # function that DOES NOT work and produces authentication error later ping <- function(cushion, as = 'list', ...) { check_cushion(cushion) sofa_GET(cushion$make_url(), as = as, args = NULL, cushion$get_headers(), cushion$get_auth(), ...) } # function that does not produce authentication error ping <- function(cushion, as = 'list', ...) { check_cushion(cushion) sofa_GET(cushion$make_url(), as = as, args = NULL, headers = cushion$get_headers(), auth = cushion$get_auth(), ...) ```