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

[R] refactor the client to prepare additional HTTP library support (#13045)

Browse Source 
* remove httr functions from api files

* fix comments
This commit is contained in:
William Cheng 2022-07-31 10:52:57 +08:00 committed by GitHub
parent c81a63fd7a
commit 054264df90
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
11 changed files with 634 additions and 588 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
modules/openapi-generator/src/main/resources/r/ApiResponse.mustache vendored
View File

@ -5,12 +5,18 @@
#' @format An \code{R6Class} generator object #' @format An \code{R6Class} generator object
#' @field content The deserialized response body. #' @field content The deserialized response body.
#' @field response The raw response from the endpoint. #' @field response The raw response from the endpoint.
#' @field status_code The HTTP response status code.
#' @field status_code_desc The brief descriptoin of the HTTP response status code.
#' @field headers The HTTP response headers.
#' @export #' @export
ApiResponse <- R6::R6Class( ApiResponse <- R6::R6Class(
"ApiResponse", "ApiResponse",
public = list( public = list(
content = NULL, content = NULL,
response = NULL, response = NULL,
status_code = NULL,
status_code_desc = NULL,
headers = NULL,
#' Initialize a new ApiResponse class. #' Initialize a new ApiResponse class.
#' #'
#' @description #' @description
@ -18,10 +24,20 @@ ApiResponse <- R6::R6Class(
#' #'
#' @param content The deserialized response body. #' @param content The deserialized response body.
#' @param response The raw response from the endpoint. #' @param response The raw response from the endpoint.
#' @param status_code The HTTP response status code.
#' @param status_code_desc The brief description of the HTTP response status code.
#' @param headers The HTTP response headers.
#' @export #' @export
initialize = function(content, response) { initialize = function(content = NULL,
response = NULL,
status_code = NULL,
status_code_desc = NULL,
headers = NULL) {
self$content <- content self$content <- content
self$response <- response self$response <- response
self$status_code <- status_code
self$status_code_desc <- status_code_desc
self$headers <- headers
} }
) )
) )

53
modules/openapi-generator/src/main/resources/r/api.mustache vendored
View File

@ -194,22 +194,21 @@
#' @return {{{returnType}}}{{^returnType}}void{{/returnType}} #' @return {{{returnType}}}{{^returnType}}void{{/returnType}}
#' @export #' @export
{{{operationId}}} = function({{#requiredParams}}{{paramName}}, {{/requiredParams}}{{#optionalParams}}{{paramName}} = {{^defaultValue}}NULL{{/defaultValue}}{{{defaultValue}}}, {{/optionalParams}}{{#vendorExtensions.x-streaming}}stream_callback = NULL, {{/vendorExtensions.x-streaming}}{{#returnType}}data_file = NULL, {{/returnType}}...) { {{{operationId}}} = function({{#requiredParams}}{{paramName}}, {{/requiredParams}}{{#optionalParams}}{{paramName}} = {{^defaultValue}}NULL{{/defaultValue}}{{{defaultValue}}}, {{/optionalParams}}{{#vendorExtensions.x-streaming}}stream_callback = NULL, {{/vendorExtensions.x-streaming}}{{#returnType}}data_file = NULL, {{/returnType}}...) {
api_response <- self${{{operationId}}}{{WithHttpInfo}}({{#allParams}}{{paramName}}, {{/allParams}}{{#vendorExtensions.x-streaming}}stream_callback = stream_callback, {{/vendorExtensions.x-streaming}}{{#returnType}}data_file = data_file, {{/returnType}}...) local_var_response <- self${{{operationId}}}{{WithHttpInfo}}({{#allParams}}{{paramName}}, {{/allParams}}{{#vendorExtensions.x-streaming}}stream_callback = stream_callback, {{/vendorExtensions.x-streaming}}{{#returnType}}data_file = data_file, {{/returnType}}...)
{{#vendorExtensions.x-streaming}} {{#vendorExtensions.x-streaming}}
if (typeof(stream_callback) == "closure") { # return void if streaming is enabled if (typeof(stream_callback) == "closure") { # return void if streaming is enabled
return(invisible(NULL)) return(invisible(NULL))
} }
{{/vendorExtensions.x-streaming}} {{/vendorExtensions.x-streaming}}
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' {{{summary}}} #' {{{summary}}}
@ -368,10 +367,10 @@
} }
{{/vendorExtensions.x-streaming}} {{/vendorExtensions.x-streaming}}
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
{{#returnType}} {{#returnType}}
{{#isPrimitiveType}} {{#isPrimitiveType}}
local_var_content <- httr::content( local_var_content <- local_var_resp$response
local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE
) )
# save response in a file # save response in a file
@ -384,11 +383,11 @@
{{^isPrimitiveType}} {{^isPrimitiveType}}
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "{{returnType}}", loadNamespace("{{packageName}}")), self$api_client$deserialize(local_var_resp$response, "{{returnType}}", loadNamespace("{{packageName}}")),
error = function(e) { error = function(e) {
{{#useDefaultExceptionHandling}} {{#useDefaultExceptionHandling}}
stop("Failed to deserialize response") stop("Failed to deserialize response")
@ -400,18 +399,19 @@
{{/useRlangExceptionHandling}} {{/useRlangExceptionHandling}}
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
{{/isPrimitiveType}} {{/isPrimitiveType}}
{{/returnType}} {{/returnType}}
{{^returnType}} {{^returnType}}
{{! Returning the ApiResponse object with NULL object when the endpoint doesn't return anything}} {{! Returning the ApiResponse object with NULL object when the endpoint doesn't return anything}}
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
{{/returnType}} {{/returnType}}
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
{{#returnExceptionOnFailure}} {{#returnExceptionOnFailure}}
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
{{#useDefaultExceptionHandling}} {{#useDefaultExceptionHandling}}
stop(local_var_error_msg) stop(local_var_error_msg)
@ -423,11 +423,11 @@
{{/useRlangExceptionHandling}} {{/useRlangExceptionHandling}}
{{/returnExceptionOnFailure}} {{/returnExceptionOnFailure}}
{{^returnExceptionOnFailure}} {{^returnExceptionOnFailure}}
ApiResponse$new(paste("Server returned ", httr::status_code(local_var_resp), " response status code."), local_var_resp) ApiResponse$new(paste("Server returned ", local_var_resp$status_code, " response status code."), local_var_resp)
{{/returnExceptionOnFailure}} {{/returnExceptionOnFailure}}
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
{{#returnExceptionOnFailure}} {{#returnExceptionOnFailure}}
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
@ -443,9 +443,9 @@
{{^returnExceptionOnFailure}} {{^returnExceptionOnFailure}}
ApiResponse$new("API client error", local_var_resp) ApiResponse$new("API client error", local_var_resp)
{{/returnExceptionOnFailure}} {{/returnExceptionOnFailure}}
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
{{#returnExceptionOnFailure}} {{#returnExceptionOnFailure}}
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -459,7 +459,10 @@
{{/useRlangExceptionHandling}} {{/useRlangExceptionHandling}}
{{/returnExceptionOnFailure}} {{/returnExceptionOnFailure}}
{{^returnExceptionOnFailure}} {{^returnExceptionOnFailure}}
ApiResponse$new("API server error", local_var_resp) if (is.null(local_var_resp$response) || local_var_resp$response == "") {
local_var_resp$response <- "API server error"
}
return local_var_resp
{{/returnExceptionOnFailure}} {{/returnExceptionOnFailure}}
} }
}{{^-last}},{{/-last}} }{{^-last}},{{/-last}}

94
modules/openapi-generator/src/main/resources/r/api_client.mustache vendored
View File

@ -145,7 +145,6 @@ ApiClient <- R6::R6Class(
resp <- self$Execute(url, method, query_params, header_params, accepts, content_types, resp <- self$Execute(url, method, query_params, header_params, accepts, content_types,
body, stream_callback = stream_callback, ...) body, stream_callback = stream_callback, ...)
status_code <- httr::status_code(resp)
if (is.null(self$max_retry_attempts)) { if (is.null(self$max_retry_attempts)) {
self$max_retry_attempts <- 3 self$max_retry_attempts <- 3
@ -154,10 +153,9 @@ ApiClient <- R6::R6Class(
if (!is.null(self$retry_status_codes)) { if (!is.null(self$retry_status_codes)) {
for (i in 1 : self$max_retry_attempts) { for (i in 1 : self$max_retry_attempts) {
if (status_code %in% self$retry_status_codes) { if (resp$status_code %in% self$retry_status_codes) {
Sys.sleep((2 ^ i) + stats::runif(n = 1, min = 0, max = 1)) Sys.sleep((2 ^ i) + stats::runif(n = 1, min = 0, max = 1))
resp <- self$Execute(url, method, query_params, header_params, body, stream_callback = stream_callback, ...) resp <- self$Execute(url, method, query_params, header_params, body, stream_callback = stream_callback, ...)
status_code <- httr::status_code(resp)
} else { } else {
break break
} }
@ -204,60 +202,28 @@ ApiClient <- R6::R6Class(
headers['Content-Type'] = content_type headers['Content-Type'] = content_type
} }
if (typeof(stream_callback) == "closure") { # stream data
if (method == "GET") { if (method == "GET") {
if (typeof(stream_callback) == "closure") {
httr::GET(url, query = query_params, headers, http_timeout, httr::GET(url, query = query_params, headers, http_timeout,
httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::GET(url, query = query_params, headers, http_timeout,
httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "POST") { } else if (method == "POST") {
if (typeof(stream_callback) == "closure") {
httr::POST(url, query = query_params, headers, body = body, httr::POST(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout, httr::content_type("application/json"), http_timeout,
httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::POST(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "PUT") { } else if (method == "PUT") {
if (typeof(stream_callback) == "closure") {
httr::PUT(url, query = query_params, headers, body = body, httr::PUT(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout, httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::PUT(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "PATCH") { } else if (method == "PATCH") {
if (typeof(stream_callback) == "closure") {
httr::PATCH(url, query = query_params, headers, body = body, httr::PATCH(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout, httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::PATCH(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "HEAD") { } else if (method == "HEAD") {
if (typeof(stream_callback) == "closure") {
httr::HEAD(url, query = query_params, headers, http_timeout, httr::HEAD(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::HEAD(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "DELETE") { } else if (method == "DELETE") {
if (typeof(stream_callback) == "closure") {
httr::DELETE(url, query = query_params, headers, http_timeout, httr::DELETE(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::DELETE(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else { } else {
err_msg <- "Http method must be `GET`, `HEAD`, `OPTIONS`, `POST`, `PATCH`, `PUT` or `DELETE`." err_msg <- "Http method must be `GET`, `HEAD`, `OPTIONS`, `POST`, `PATCH`, `PUT` or `DELETE`."
{{#useDefaultExceptionHandling}} {{#useDefaultExceptionHandling}}
@ -269,19 +235,62 @@ ApiClient <- R6::R6Class(
ApiException = ApiException$new(status = 0, reason = err_msg)) ApiException = ApiException$new(status = 0, reason = err_msg))
{{/useRlangExceptionHandling}} {{/useRlangExceptionHandling}}
} }
} else { # no streaming
if (method == "GET") {
httr_response <- httr::GET(url, query = query_params, headers, http_timeout,
httr::user_agent(self$`user_agent`), ...)
} else if (method == "POST") {
httr_response <- httr::POST(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
httr::user_agent(self$`user_agent`), ...)
} else if (method == "PUT") {
httr_response <- httr::PUT(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else if (method == "PATCH") {
httr_response <- httr::PATCH(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else if (method == "HEAD") {
httr_response <- httr::HEAD(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else if (method == "DELETE") {
httr_response <- httr::DELETE(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else {
err_msg <- "Http method must be `GET`, `HEAD`, `OPTIONS`, `POST`, `PATCH`, `PUT` or `DELETE`."
{{#useDefaultExceptionHandling}}
stop(err_msg)
{{/useDefaultExceptionHandling}}
{{#useRlangExceptionHandling}}
rlang::abort(message = err_msg,
.subclass = "ApiException",
ApiException = ApiException$new(status = 0, reason = err_msg))
{{/useRlangExceptionHandling}}
}
# return ApiResponse
api_response <- ApiResponse$new()
api_response$status_code <- httr::status_code(httr_response)
api_response$status_code_desc <- httr::http_status(httr_response)$reason
api_response$response <- httr::content(httr_response, "text", encoding = "UTF-8")
api_response$headers <- httr::headers(httr_response)
api_response
}
}, },
#' Deserialize the content of api response to the given type. #' Deserialize the content of API response to the given type.
#' #'
#' @description #' @description
#' Deserialize the content of api response to the given type. #' Deserialize the content of API response to the given type.
#' #'
#' @param resp Response object. #' @param raw_response Raw response.
#' @param return_type R return type. #' @param return_type R return type.
#' @param pkg_env Package environment. #' @param pkg_env Package environment.
#' @return Deserialized object. #' @return Deserialized object.
#' @export #' @export
deserialize = function(resp, return_type, pkg_env) { deserialize = function(raw_response, return_type, pkg_env) {
resp_obj <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8")) resp_obj <- jsonlite::fromJSON(raw_response)
self$deserializeObj(resp_obj, return_type, pkg_env) self$deserializeObj(resp_obj, return_type, pkg_env)
}, },
#' Deserialize the response from jsonlite object based on the given type #' Deserialize the response from jsonlite object based on the given type
@ -343,8 +352,7 @@ ApiClient <- R6::R6Class(
} }
return_obj return_obj
}, },
#' Return a propery header (for accept or content-type). If JSON-related MIME is found, #' Return a propery header (for accept or content-type).
#' return it. Otherwise, return the first one, if any.
#' #'
#' @description #' @description
#' Return a propery header (for accept or content-type). If JSON-related MIME is found, #' Return a propery header (for accept or content-type). If JSON-related MIME is found,

8
modules/openapi-generator/src/main/resources/r/api_exception.mustache vendored
View File

@ -34,15 +34,15 @@ ApiException <- R6::R6Class(
initialize = function(status = NULL, reason = NULL, http_response = NULL) { initialize = function(status = NULL, reason = NULL, http_response = NULL) {
if (!is.null(http_response)) { if (!is.null(http_response)) {
self$status <- http_response$status_code self$status <- http_response$status_code
errorMsg <- toString(content(http_response)) errorMsg <- http_response$response
if (errorMsg == "") { if (is.null(errorMsg) || errorMsg == "") {
errorMsg <- "Api exception encountered. No details given." errorMsg <- "Api exception encountered. No details given."
} }
self$body <- errorMsg self$body <- errorMsg
self$headers <- http_response$headers self$headers <- http_response$headers
self$reason <- httr::http_status(http_response)$reason self$reason <- http_response$http_status_desc
{{#errorObjectType}} {{#errorObjectType}}
self$errorObject <- {{errorObjectType}}$new()$fromJSONString(content(http_response, "text")) self$errorObject <- {{errorObjectType}}$new()$fromJSONString(http_response$response)
{{/errorObjectType}} {{/errorObjectType}}
} else { } else {
self$status <- status self$status <- status

89
samples/client/petstore/R/R/api_client.R
View File

@ -150,7 +150,6 @@ ApiClient <- R6::R6Class(
resp <- self$Execute(url, method, query_params, header_params, accepts, content_types, resp <- self$Execute(url, method, query_params, header_params, accepts, content_types,
body, stream_callback = stream_callback, ...) body, stream_callback = stream_callback, ...)
status_code <- httr::status_code(resp)
if (is.null(self$max_retry_attempts)) { if (is.null(self$max_retry_attempts)) {
self$max_retry_attempts <- 3 self$max_retry_attempts <- 3
@ -159,10 +158,9 @@ ApiClient <- R6::R6Class(
if (!is.null(self$retry_status_codes)) { if (!is.null(self$retry_status_codes)) {
for (i in 1 : self$max_retry_attempts) { for (i in 1 : self$max_retry_attempts) {
if (status_code %in% self$retry_status_codes) { if (resp$status_code %in% self$retry_status_codes) {
Sys.sleep((2 ^ i) + stats::runif(n = 1, min = 0, max = 1)) Sys.sleep((2 ^ i) + stats::runif(n = 1, min = 0, max = 1))
resp <- self$Execute(url, method, query_params, header_params, body, stream_callback = stream_callback, ...) resp <- self$Execute(url, method, query_params, header_params, body, stream_callback = stream_callback, ...)
status_code <- httr::status_code(resp)
} else { } else {
break break
} }
@ -208,79 +206,85 @@ ApiClient <- R6::R6Class(
headers['Content-Type'] = content_type headers['Content-Type'] = content_type
} }
if (typeof(stream_callback) == "closure") { # stream data
if (method == "GET") { if (method == "GET") {
if (typeof(stream_callback) == "closure") {
httr::GET(url, query = query_params, headers, http_timeout, httr::GET(url, query = query_params, headers, http_timeout,
httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::GET(url, query = query_params, headers, http_timeout,
httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "POST") { } else if (method == "POST") {
if (typeof(stream_callback) == "closure") {
httr::POST(url, query = query_params, headers, body = body, httr::POST(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout, httr::content_type("application/json"), http_timeout,
httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::POST(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "PUT") { } else if (method == "PUT") {
if (typeof(stream_callback) == "closure") {
httr::PUT(url, query = query_params, headers, body = body, httr::PUT(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout, httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::PUT(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "PATCH") { } else if (method == "PATCH") {
if (typeof(stream_callback) == "closure") {
httr::PATCH(url, query = query_params, headers, body = body, httr::PATCH(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout, httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::PATCH(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "HEAD") { } else if (method == "HEAD") {
if (typeof(stream_callback) == "closure") {
httr::HEAD(url, query = query_params, headers, http_timeout, httr::HEAD(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::HEAD(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else if (method == "DELETE") { } else if (method == "DELETE") {
if (typeof(stream_callback) == "closure") {
httr::DELETE(url, query = query_params, headers, http_timeout, httr::DELETE(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...) http_timeout, httr::user_agent(self$`user_agent`), write_stream(stream_callback), ...)
} else {
httr::DELETE(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
}
} else { } else {
err_msg <- "Http method must be `GET`, `HEAD`, `OPTIONS`, `POST`, `PATCH`, `PUT` or `DELETE`." err_msg <- "Http method must be `GET`, `HEAD`, `OPTIONS`, `POST`, `PATCH`, `PUT` or `DELETE`."
rlang::abort(message = err_msg, rlang::abort(message = err_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(status = 0, reason = err_msg)) ApiException = ApiException$new(status = 0, reason = err_msg))
} }
} else { # no streaming
if (method == "GET") {
httr_response <- httr::GET(url, query = query_params, headers, http_timeout,
httr::user_agent(self$`user_agent`), ...)
} else if (method == "POST") {
httr_response <- httr::POST(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
httr::user_agent(self$`user_agent`), ...)
} else if (method == "PUT") {
httr_response <- httr::PUT(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else if (method == "PATCH") {
httr_response <- httr::PATCH(url, query = query_params, headers, body = body,
httr::content_type("application/json"), http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else if (method == "HEAD") {
httr_response <- httr::HEAD(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else if (method == "DELETE") {
httr_response <- httr::DELETE(url, query = query_params, headers, http_timeout,
http_timeout, httr::user_agent(self$`user_agent`), ...)
} else {
err_msg <- "Http method must be `GET`, `HEAD`, `OPTIONS`, `POST`, `PATCH`, `PUT` or `DELETE`."
rlang::abort(message = err_msg,
.subclass = "ApiException",
ApiException = ApiException$new(status = 0, reason = err_msg))
}
# return ApiResponse
api_response <- ApiResponse$new()
api_response$status_code <- httr::status_code(httr_response)
api_response$status_code_desc <- httr::http_status(httr_response)$reason
api_response$response <- httr::content(httr_response, "text", encoding = "UTF-8")
api_response$headers <- httr::headers(httr_response)
api_response
}
}, },
#' Deserialize the content of api response to the given type. #' Deserialize the content of API response to the given type.
#' #'
#' @description #' @description
#' Deserialize the content of api response to the given type. #' Deserialize the content of API response to the given type.
#' #'
#' @param resp Response object. #' @param raw_response Raw response.
#' @param return_type R return type. #' @param return_type R return type.
#' @param pkg_env Package environment. #' @param pkg_env Package environment.
#' @return Deserialized object. #' @return Deserialized object.
#' @export #' @export
deserialize = function(resp, return_type, pkg_env) { deserialize = function(raw_response, return_type, pkg_env) {
resp_obj <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8")) resp_obj <- jsonlite::fromJSON(raw_response)
self$deserializeObj(resp_obj, return_type, pkg_env) self$deserializeObj(resp_obj, return_type, pkg_env)
}, },
#' Deserialize the response from jsonlite object based on the given type #' Deserialize the response from jsonlite object based on the given type
@ -342,8 +346,7 @@ ApiClient <- R6::R6Class(
} }
return_obj return_obj
}, },
#' Return a propery header (for accept or content-type). If JSON-related MIME is found, #' Return a propery header (for accept or content-type).
#' return it. Otherwise, return the first one, if any.
#' #'
#' @description #' @description
#' Return a propery header (for accept or content-type). If JSON-related MIME is found, #' Return a propery header (for accept or content-type). If JSON-related MIME is found,

8
samples/client/petstore/R/R/api_exception.R
View File

@ -36,14 +36,14 @@ ApiException <- R6::R6Class(
initialize = function(status = NULL, reason = NULL, http_response = NULL) { initialize = function(status = NULL, reason = NULL, http_response = NULL) {
if (!is.null(http_response)) { if (!is.null(http_response)) {
self$status <- http_response$status_code self$status <- http_response$status_code
errorMsg <- toString(content(http_response)) errorMsg <- http_response$response
if (errorMsg == "") { if (is.null(errorMsg) || errorMsg == "") {
errorMsg <- "Api exception encountered. No details given." errorMsg <- "Api exception encountered. No details given."
} }
self$body <- errorMsg self$body <- errorMsg
self$headers <- http_response$headers self$headers <- http_response$headers
self$reason <- httr::http_status(http_response)$reason self$reason <- http_response$http_status_desc
self$errorObject <- ModelApiResponse$new()$fromJSONString(content(http_response, "text")) self$errorObject <- ModelApiResponse$new()$fromJSONString(http_response$response)
} else { } else {
self$status <- status self$status <- status
self$reason <- reason self$reason <- reason

18
samples/client/petstore/R/R/api_response.R
View File

@ -12,12 +12,18 @@
#' @format An \code{R6Class} generator object #' @format An \code{R6Class} generator object
#' @field content The deserialized response body. #' @field content The deserialized response body.
#' @field response The raw response from the endpoint. #' @field response The raw response from the endpoint.
#' @field status_code The HTTP response status code.
#' @field status_code_desc The brief descriptoin of the HTTP response status code.
#' @field headers The HTTP response headers.
#' @export #' @export
ApiResponse <- R6::R6Class( ApiResponse <- R6::R6Class(
"ApiResponse", "ApiResponse",
public = list( public = list(
content = NULL, content = NULL,
response = NULL, response = NULL,
status_code = NULL,
status_code_desc = NULL,
headers = NULL,
#' Initialize a new ApiResponse class. #' Initialize a new ApiResponse class.
#' #'
#' @description #' @description
@ -25,10 +31,20 @@ ApiResponse <- R6::R6Class(
#' #'
#' @param content The deserialized response body. #' @param content The deserialized response body.
#' @param response The raw response from the endpoint. #' @param response The raw response from the endpoint.
#' @param status_code The HTTP response status code.
#' @param status_code_desc The brief description of the HTTP response status code.
#' @param headers The HTTP response headers.
#' @export #' @export
initialize = function(content, response) { initialize = function(content = NULL,
response = NULL,
status_code = NULL,
status_code_desc = NULL,
headers = NULL) {
self$content <- content self$content <- content
self$response <- response self$response <- response
self$status_code <- status_code
self$status_code_desc <- status_code_desc
self$headers <- headers
} }
) )
) )

42
samples/client/petstore/R/R/fake_api.R
View File

@ -99,16 +99,15 @@ FakeApi <- R6::R6Class(
#' @return User #' @return User
#' @export #' @export
FakeDataFile = function(dummy, var_data_file = NULL, data_file = NULL, ...) { FakeDataFile = function(dummy, var_data_file = NULL, data_file = NULL, ...) {
api_response <- self$FakeDataFileWithHttpInfo(dummy, var_data_file, data_file = data_file, ...) local_var_response <- self$FakeDataFileWithHttpInfo(dummy, var_data_file, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' test data_file to ensure it's escaped correctly #' test data_file to ensure it's escaped correctly
@ -156,39 +155,40 @@ FakeApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "User", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "User", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }

370
samples/client/petstore/R/R/pet_api.R
View File

@ -544,16 +544,15 @@ PetApi <- R6::R6Class(
#' @return Pet #' @return Pet
#' @export #' @export
AddPet = function(pet, data_file = NULL, ...) { AddPet = function(pet, data_file = NULL, ...) {
api_response <- self$AddPetWithHttpInfo(pet, data_file = data_file, ...) local_var_response <- self$AddPetWithHttpInfo(pet, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Add a new pet to the store #' Add a new pet to the store
@ -609,39 +608,40 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "Pet", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -661,16 +661,15 @@ PetApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
DeletePet = function(pet_id, api_key = NULL, ...) { DeletePet = function(pet_id, api_key = NULL, ...) {
api_response <- self$DeletePetWithHttpInfo(pet_id, api_key, ...) local_var_response <- self$DeletePetWithHttpInfo(pet_id, api_key, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Deletes a pet #' Deletes a pet
@ -721,26 +720,27 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -760,16 +760,15 @@ PetApi <- R6::R6Class(
#' @return array[Pet] #' @return array[Pet]
#' @export #' @export
FindPetsByStatus = function(status, data_file = NULL, ...) { FindPetsByStatus = function(status, data_file = NULL, ...) {
api_response <- self$FindPetsByStatusWithHttpInfo(status, data_file = data_file, ...) local_var_response <- self$FindPetsByStatusWithHttpInfo(status, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Finds Pets by status #' Finds Pets by status
@ -816,39 +815,40 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "array[Pet]", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "array[Pet]", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -868,16 +868,15 @@ PetApi <- R6::R6Class(
#' @return array[Pet] #' @return array[Pet]
#' @export #' @export
FindPetsByTags = function(tags, data_file = NULL, ...) { FindPetsByTags = function(tags, data_file = NULL, ...) {
api_response <- self$FindPetsByTagsWithHttpInfo(tags, data_file = data_file, ...) local_var_response <- self$FindPetsByTagsWithHttpInfo(tags, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Finds Pets by tags #' Finds Pets by tags
@ -924,39 +923,40 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "array[Pet]", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "array[Pet]", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -976,16 +976,15 @@ PetApi <- R6::R6Class(
#' @return Pet #' @return Pet
#' @export #' @export
GetPetById = function(pet_id, data_file = NULL, ...) { GetPetById = function(pet_id, data_file = NULL, ...) {
api_response <- self$GetPetByIdWithHttpInfo(pet_id, data_file = data_file, ...) local_var_response <- self$GetPetByIdWithHttpInfo(pet_id, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Find pet by ID #' Find pet by ID
@ -1033,39 +1032,40 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "Pet", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -1086,20 +1086,19 @@ PetApi <- R6::R6Class(
#' @return Pet #' @return Pet
#' @export #' @export
GetPetByIdStreaming = function(pet_id, stream_callback = NULL, data_file = NULL, ...) { GetPetByIdStreaming = function(pet_id, stream_callback = NULL, data_file = NULL, ...) {
api_response <- self$GetPetByIdStreamingWithHttpInfo(pet_id, stream_callback = stream_callback, data_file = data_file, ...) local_var_response <- self$GetPetByIdStreamingWithHttpInfo(pet_id, stream_callback = stream_callback, data_file = data_file, ...)
if (typeof(stream_callback) == "closure") { # return void if streaming is enabled if (typeof(stream_callback) == "closure") { # return void if streaming is enabled
return(invisible(NULL)) return(invisible(NULL))
} }
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Find pet by ID (streaming) #' Find pet by ID (streaming)
@ -1156,39 +1155,40 @@ PetApi <- R6::R6Class(
return(invisible(NULL)) return(invisible(NULL))
} }
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "Pet", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -1208,16 +1208,15 @@ PetApi <- R6::R6Class(
#' @return Pet #' @return Pet
#' @export #' @export
UpdatePet = function(pet, data_file = NULL, ...) { UpdatePet = function(pet, data_file = NULL, ...) {
api_response <- self$UpdatePetWithHttpInfo(pet, data_file = data_file, ...) local_var_response <- self$UpdatePetWithHttpInfo(pet, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Update an existing pet #' Update an existing pet
@ -1267,39 +1266,40 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "Pet", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -1320,16 +1320,15 @@ PetApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
UpdatePetWithForm = function(pet_id, name = NULL, status = NULL, ...) { UpdatePetWithForm = function(pet_id, name = NULL, status = NULL, ...) {
api_response <- self$UpdatePetWithFormWithHttpInfo(pet_id, name, status, ...) local_var_response <- self$UpdatePetWithFormWithHttpInfo(pet_id, name, status, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Updates a pet in the store with form data #' Updates a pet in the store with form data
@ -1383,26 +1382,27 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -1424,16 +1424,15 @@ PetApi <- R6::R6Class(
#' @return ModelApiResponse #' @return ModelApiResponse
#' @export #' @export
UploadFile = function(pet_id, additional_metadata = NULL, file = NULL, data_file = NULL, ...) { UploadFile = function(pet_id, additional_metadata = NULL, file = NULL, data_file = NULL, ...) {
api_response <- self$UploadFileWithHttpInfo(pet_id, additional_metadata, file, data_file = data_file, ...) local_var_response <- self$UploadFileWithHttpInfo(pet_id, additional_metadata, file, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' uploads an image #' uploads an image
@ -1488,39 +1487,40 @@ PetApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "ModelApiResponse", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "ModelApiResponse", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }

164
samples/client/petstore/R/R/store_api.R
View File

@ -249,16 +249,15 @@ StoreApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
DeleteOrder = function(order_id, ...) { DeleteOrder = function(order_id, ...) {
api_response <- self$DeleteOrderWithHttpInfo(order_id, ...) local_var_response <- self$DeleteOrderWithHttpInfo(order_id, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Delete purchase order by ID #' Delete purchase order by ID
@ -304,26 +303,27 @@ StoreApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -342,16 +342,15 @@ StoreApi <- R6::R6Class(
#' @return map(integer) #' @return map(integer)
#' @export #' @export
GetInventory = function(data_file = NULL, ...) { GetInventory = function(data_file = NULL, ...) {
api_response <- self$GetInventoryWithHttpInfo(data_file = data_file, ...) local_var_response <- self$GetInventoryWithHttpInfo(data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Returns pet inventories by status #' Returns pet inventories by status
@ -390,39 +389,40 @@ StoreApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "map(integer)", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "map(integer)", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -442,16 +442,15 @@ StoreApi <- R6::R6Class(
#' @return Order #' @return Order
#' @export #' @export
GetOrderById = function(order_id, data_file = NULL, ...) { GetOrderById = function(order_id, data_file = NULL, ...) {
api_response <- self$GetOrderByIdWithHttpInfo(order_id, data_file = data_file, ...) local_var_response <- self$GetOrderByIdWithHttpInfo(order_id, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Find purchase order by ID #' Find purchase order by ID
@ -498,39 +497,40 @@ StoreApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "Order", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "Order", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -550,16 +550,15 @@ StoreApi <- R6::R6Class(
#' @return Order #' @return Order
#' @export #' @export
PlaceOrder = function(order, data_file = NULL, ...) { PlaceOrder = function(order, data_file = NULL, ...) {
api_response <- self$PlaceOrderWithHttpInfo(order, data_file = data_file, ...) local_var_response <- self$PlaceOrderWithHttpInfo(order, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Place an order for a pet #' Place an order for a pet
@ -607,39 +606,40 @@ StoreApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "Order", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "Order", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }

312
samples/client/petstore/R/R/user_api.R
View File

@ -435,16 +435,15 @@ UserApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
CreateUser = function(user, ...) { CreateUser = function(user, ...) {
api_response <- self$CreateUserWithHttpInfo(user, ...) local_var_response <- self$CreateUserWithHttpInfo(user, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Create user #' Create user
@ -495,26 +494,27 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -533,16 +533,15 @@ UserApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
CreateUsersWithArrayInput = function(user, ...) { CreateUsersWithArrayInput = function(user, ...) {
api_response <- self$CreateUsersWithArrayInputWithHttpInfo(user, ...) local_var_response <- self$CreateUsersWithArrayInputWithHttpInfo(user, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Creates list of users with given input array #' Creates list of users with given input array
@ -596,26 +595,27 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -634,16 +634,15 @@ UserApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
CreateUsersWithListInput = function(user, ...) { CreateUsersWithListInput = function(user, ...) {
api_response <- self$CreateUsersWithListInputWithHttpInfo(user, ...) local_var_response <- self$CreateUsersWithListInputWithHttpInfo(user, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Creates list of users with given input array #' Creates list of users with given input array
@ -697,26 +696,27 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -735,16 +735,15 @@ UserApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
DeleteUser = function(username, ...) { DeleteUser = function(username, ...) {
api_response <- self$DeleteUserWithHttpInfo(username, ...) local_var_response <- self$DeleteUserWithHttpInfo(username, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Delete user #' Delete user
@ -794,26 +793,27 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -833,16 +833,15 @@ UserApi <- R6::R6Class(
#' @return User #' @return User
#' @export #' @export
GetUserByName = function(username, data_file = NULL, ...) { GetUserByName = function(username, data_file = NULL, ...) {
api_response <- self$GetUserByNameWithHttpInfo(username, data_file = data_file, ...) local_var_response <- self$GetUserByNameWithHttpInfo(username, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Get user by user name #' Get user by user name
@ -889,39 +888,40 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "User", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "User", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -942,16 +942,15 @@ UserApi <- R6::R6Class(
#' @return character #' @return character
#' @export #' @export
LoginUser = function(username, password, data_file = NULL, ...) { LoginUser = function(username, password, data_file = NULL, ...) {
api_response <- self$LoginUserWithHttpInfo(username, password, data_file = data_file, ...) local_var_response <- self$LoginUserWithHttpInfo(username, password, data_file = data_file, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Logs user into the system #' Logs user into the system
@ -1006,39 +1005,40 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
# save response in a file # save response in a file
if (!is.null(data_file)) { if (!is.null(data_file)) {
write(httr::content(local_var_resp, "text", encoding = "UTF-8", simplifyVector = FALSE), data_file) write(local_var_resp$response, data_file)
} }
deserialized_resp_obj <- tryCatch( deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp, "character", loadNamespace("petstore")), self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("petstore")),
error = function(e) { error = function(e) {
rlang::abort(message = "Failed to deserialize response", rlang::abort(message = "Failed to deserialize response",
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} }
) )
ApiResponse$new(deserialized_resp_obj, local_var_resp) local_var_resp$content <- deserialized_resp_obj
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -1056,16 +1056,15 @@ UserApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
LogoutUser = function(...) { LogoutUser = function(...) {
api_response <- self$LogoutUserWithHttpInfo(...) local_var_response <- self$LogoutUserWithHttpInfo(...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Logs out current logged in user session #' Logs out current logged in user session
@ -1103,26 +1102,27 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }
@ -1142,16 +1142,15 @@ UserApi <- R6::R6Class(
#' @return void #' @return void
#' @export #' @export
UpdateUser = function(username, user, ...) { UpdateUser = function(username, user, ...) {
api_response <- self$UpdateUserWithHttpInfo(username, user, ...) local_var_response <- self$UpdateUserWithHttpInfo(username, user, ...)
local_var_response <- api_response$response if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
if (httr::status_code(local_var_response) >= 200 && httr::status_code(local_var_response) <= 299) { local_var_response$content
api_response$content } else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
} else if (httr::status_code(local_var_response) >= 300 && httr::status_code(local_var_response) <= 399) { local_var_response
api_response } else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
} else if (httr::status_code(local_var_response) >= 400 && httr::status_code(local_var_response) <= 499) { local_var_response
api_response } else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
} else if (httr::status_code(local_var_response) >= 500 && httr::status_code(local_var_response) <= 599) { local_var_response
api_response
} }
}, },
#' Updated user #' Updated user
@ -1214,26 +1213,27 @@ UserApi <- R6::R6Class(
body = local_var_body, body = local_var_body,
...) ...)
if (httr::status_code(local_var_resp) >= 200 && httr::status_code(local_var_resp) <= 299) { if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
ApiResponse$new(NULL, local_var_resp) local_var_resp$content <- NULL
} else if (httr::status_code(local_var_resp) >= 300 && httr::status_code(local_var_resp) <= 399) { local_var_resp
local_var_error_msg <- toString(content(local_var_resp)) } else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- paste("Server returned ", httr::status_code(local_var_resp), " response status code.") local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 400 && httr::status_code(local_var_resp) <= 499) { } else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api client exception encountered." local_var_error_msg <- "Api client exception encountered."
} }
rlang::abort(message = local_var_error_msg, rlang::abort(message = local_var_error_msg,
.subclass = "ApiException", .subclass = "ApiException",
ApiException = ApiException$new(http_response = local_var_resp)) ApiException = ApiException$new(http_response = local_var_resp))
} else if (httr::status_code(local_var_resp) >= 500 && httr::status_code(local_var_resp) <= 599) { } else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
local_var_error_msg <- toString(content(local_var_resp)) local_var_error_msg <- local_var_resp$response
if (local_var_error_msg == "") { if (local_var_error_msg == "") {
local_var_error_msg <- "Api server exception encountered." local_var_error_msg <- "Api server exception encountered."
} }