loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

fix http basc auth in R client (#13330)

Browse Source
This commit is contained in:
William Cheng
2022-09-01 14:14:08 +08:00
committed by GitHub
parent 225204093f
commit d1f44e8a7e
5 changed files with 12 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
samples/client/petstore/R-httr2-wrapper/R/pet_api.R
View File

@@ -719,13 +719,9 @@ PetApi <- R6::R6Class(
local_var_url_path <- "/pet"
# HTTP basic auth
if (is.null(self$api_client$username) || is.null(self$api_client$password)) {
rlang::abort(message = "username, password in `api_client` must be set for authentication in the endpoint `add_pet`.",
.subclass = "ApiException",
ApiException = ApiException$new(status = 0,
reason = "username, password in `api_client` must be set for authentication in the endpoint `add_pet`."))
if (!is.null(self$api_client$username) || !is.null(self$api_client$password)) {
header_params["Authorization"] <- paste("Basic", base64enc::base64encode(charToRaw(paste(self$api_client$username, self$api_client$password, sep = ":"))))
}
header_params["Authorization"] <- paste("Basic", base64enc::base64encode(charToRaw(paste(self$api_client$username, self$api_client$password, sep = ":"))))
# The Accept request HTTP header
local_var_accepts <- list("application/xml", "application/json")