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

update samples

Browse Source
This commit is contained in:
William Cheng
2024-01-23 16:52:00 +08:00
parent 0357a1b1dd
commit 90bd1f361b
8 changed files with 41 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
samples/client/echo_api/r/R/api_client.R
View File

@@ -270,7 +270,7 @@ ApiClient <- R6::R6Class(
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$response <- httr::content(httr_response, "raw")
api_response$headers <- httr::headers(httr_response)
api_response

17
samples/client/echo_api/r/R/api_response.R
View File

@@ -45,6 +45,23 @@ ApiResponse <- R6::R6Class(
self$status_code <- status_code
self$status_code_desc <- status_code_desc
self$headers <- headers
},
#' Return the response as text
#'
#' @description
#' The response is stored as a raw vector. Use this to access the response after
#' converting it to text. If the response is not coercible to text NA is returned.
#'
#' @param from_encoding The encoding of the raw response.
#' @param to_encoding The target encoding of the return value.
#' @export
response_as_text = function(from_encoding = NULL, to_encoding = "UTF-8") {
text_response <- iconv(readBin(self$response, character()), from = from_encoding, to = to_encoding)
if (is.na(text_response)) {
warning("The response is binary and will not be converted to text.")
}
return(text_response)
}
)
)

4
samples/client/echo_api/r/R/auth_api.R
View File

@@ -176,7 +176,7 @@ AuthApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -266,7 +266,7 @@ AuthApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}

18
samples/client/echo_api/r/R/body_api.R
View File

@@ -379,7 +379,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "data.frame", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "data.frame", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -474,7 +474,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -568,7 +568,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -658,7 +658,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -753,7 +753,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "Pet", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -848,7 +848,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -943,7 +943,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "Pet", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -1038,7 +1038,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -1133,7 +1133,7 @@ BodyApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}

4
samples/client/echo_api/r/R/form_api.R
View File

@@ -195,7 +195,7 @@ FormApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -305,7 +305,7 @@ FormApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}

2
samples/client/echo_api/r/R/header_api.R
View File

@@ -172,7 +172,7 @@ HeaderApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}

2
samples/client/echo_api/r/R/path_api.R
View File

@@ -189,7 +189,7 @@ PathApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}

16
samples/client/echo_api/r/R/query_api.R
View File

@@ -372,7 +372,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -473,7 +473,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -574,7 +574,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -665,7 +665,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -756,7 +756,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -847,7 +847,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -938,7 +938,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}
@@ -1029,7 +1029,7 @@ QueryApi <- R6::R6Class(
}
deserialized_resp_obj <- tryCatch(
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),
self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),
error = function(e) {
stop("Failed to deserialize response")
}