update samples

wing328 · wing328 · commit 90bd1f361b11 · 2024-01-23T16:52:00.000+08:00
diff --git a/samples/client/echo_api/r/R/api_client.R b/samples/client/echo_api/r/R/api_client.R
@@ -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
diff --git a/samples/client/echo_api/r/R/api_response.R b/samples/client/echo_api/r/R/api_response.R
@@ -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)
     }
   )
 )
diff --git a/samples/client/echo_api/r/R/auth_api.R b/samples/client/echo_api/r/R/auth_api.R
@@ -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")
           }
diff --git a/samples/client/echo_api/r/R/body_api.R b/samples/client/echo_api/r/R/body_api.R
@@ -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")
           }
diff --git a/samples/client/echo_api/r/R/form_api.R b/samples/client/echo_api/r/R/form_api.R
@@ -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")
           }
diff --git a/samples/client/echo_api/r/R/header_api.R b/samples/client/echo_api/r/R/header_api.R
@@ -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")
           }
diff --git a/samples/client/echo_api/r/R/path_api.R b/samples/client/echo_api/r/R/path_api.R
@@ -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")
           }
diff --git a/samples/client/echo_api/r/R/query_api.R b/samples/client/echo_api/r/R/query_api.R
@@ -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")
           }

Original file line number	Diff line number	Diff line change
`@@ -176,7 +176,7 @@ AuthApi <- R6::R6Class(`
`176`	`176`	`}`
`177`	`177`
`178`	`178`	`deserialized_resp_obj <- tryCatch(`
`179`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`179`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`180`	`180`	`error = function(e) {`
`181`	`181`	`stop("Failed to deserialize response")`
`182`	`182`	`}`
`@@ -266,7 +266,7 @@ AuthApi <- R6::R6Class(`
`266`	`266`	`}`
`267`	`267`
`268`	`268`	`deserialized_resp_obj <- tryCatch(`
`269`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`269`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`270`	`270`	`error = function(e) {`
`271`	`271`	`stop("Failed to deserialize response")`
`272`	`272`	`}`
Original file line number	Diff line number	Diff line change
`@@ -379,7 +379,7 @@ BodyApi <- R6::R6Class(`
`379`	`379`	`}`
`380`	`380`
`381`	`381`	`deserialized_resp_obj <- tryCatch(`
`382`		`- self$api_client$deserialize(local_var_resp$response, "data.frame", loadNamespace("openapi")),`
	`382`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "data.frame", loadNamespace("openapi")),`
`383`	`383`	`error = function(e) {`
`384`	`384`	`stop("Failed to deserialize response")`
`385`	`385`	`}`
`@@ -474,7 +474,7 @@ BodyApi <- R6::R6Class(`
`474`	`474`	`}`
`475`	`475`
`476`	`476`	`deserialized_resp_obj <- tryCatch(`
`477`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`477`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`478`	`478`	`error = function(e) {`
`479`	`479`	`stop("Failed to deserialize response")`
`480`	`480`	`}`
`@@ -568,7 +568,7 @@ BodyApi <- R6::R6Class(`
`568`	`568`	`}`
`569`	`569`
`570`	`570`	`deserialized_resp_obj <- tryCatch(`
`571`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`571`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`572`	`572`	`error = function(e) {`
`573`	`573`	`stop("Failed to deserialize response")`
`574`	`574`	`}`
`@@ -658,7 +658,7 @@ BodyApi <- R6::R6Class(`
`658`	`658`	`}`
`659`	`659`
`660`	`660`	`deserialized_resp_obj <- tryCatch(`
`661`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`661`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`662`	`662`	`error = function(e) {`
`663`	`663`	`stop("Failed to deserialize response")`
`664`	`664`	`}`
`@@ -753,7 +753,7 @@ BodyApi <- R6::R6Class(`
`753`	`753`	`}`
`754`	`754`
`755`	`755`	`deserialized_resp_obj <- tryCatch(`
`756`		`- self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("openapi")),`
	`756`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "Pet", loadNamespace("openapi")),`
`757`	`757`	`error = function(e) {`
`758`	`758`	`stop("Failed to deserialize response")`
`759`	`759`	`}`
`@@ -848,7 +848,7 @@ BodyApi <- R6::R6Class(`
`848`	`848`	`}`
`849`	`849`
`850`	`850`	`deserialized_resp_obj <- tryCatch(`
`851`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`851`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`852`	`852`	`error = function(e) {`
`853`	`853`	`stop("Failed to deserialize response")`
`854`	`854`	`}`
`@@ -943,7 +943,7 @@ BodyApi <- R6::R6Class(`
`943`	`943`	`}`
`944`	`944`
`945`	`945`	`deserialized_resp_obj <- tryCatch(`
`946`		`- self$api_client$deserialize(local_var_resp$response, "Pet", loadNamespace("openapi")),`
	`946`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "Pet", loadNamespace("openapi")),`
`947`	`947`	`error = function(e) {`
`948`	`948`	`stop("Failed to deserialize response")`
`949`	`949`	`}`
`@@ -1038,7 +1038,7 @@ BodyApi <- R6::R6Class(`
`1038`	`1038`	`}`
`1039`	`1039`
`1040`	`1040`	`deserialized_resp_obj <- tryCatch(`
`1041`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`1041`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`1042`	`1042`	`error = function(e) {`
`1043`	`1043`	`stop("Failed to deserialize response")`
`1044`	`1044`	`}`
`@@ -1133,7 +1133,7 @@ BodyApi <- R6::R6Class(`
`1133`	`1133`	`}`
`1134`	`1134`
`1135`	`1135`	`deserialized_resp_obj <- tryCatch(`
`1136`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`1136`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`1137`	`1137`	`error = function(e) {`
`1138`	`1138`	`stop("Failed to deserialize response")`
`1139`	`1139`	`}`
Original file line number	Diff line number	Diff line change
`@@ -195,7 +195,7 @@ FormApi <- R6::R6Class(`
`195`	`195`	`}`
`196`	`196`
`197`	`197`	`deserialized_resp_obj <- tryCatch(`
`198`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`198`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`199`	`199`	`error = function(e) {`
`200`	`200`	`stop("Failed to deserialize response")`
`201`	`201`	`}`
`@@ -305,7 +305,7 @@ FormApi <- R6::R6Class(`
`305`	`305`	`}`
`306`	`306`
`307`	`307`	`deserialized_resp_obj <- tryCatch(`
`308`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`308`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`309`	`309`	`error = function(e) {`
`310`	`310`	`stop("Failed to deserialize response")`
`311`	`311`	`}`
Original file line number	Diff line number	Diff line change
`@@ -172,7 +172,7 @@ HeaderApi <- R6::R6Class(`
`172`	`172`	`}`
`173`	`173`
`174`	`174`	`deserialized_resp_obj <- tryCatch(`
`175`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`175`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`176`	`176`	`error = function(e) {`
`177`	`177`	`stop("Failed to deserialize response")`
`178`	`178`	`}`
Original file line number	Diff line number	Diff line change
`@@ -189,7 +189,7 @@ PathApi <- R6::R6Class(`
`189`	`189`	`}`
`190`	`190`
`191`	`191`	`deserialized_resp_obj <- tryCatch(`
`192`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`192`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`193`	`193`	`error = function(e) {`
`194`	`194`	`stop("Failed to deserialize response")`
`195`	`195`	`}`
Original file line number	Diff line number	Diff line change
`@@ -372,7 +372,7 @@ QueryApi <- R6::R6Class(`
`372`	`372`	`}`
`373`	`373`
`374`	`374`	`deserialized_resp_obj <- tryCatch(`
`375`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`375`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`376`	`376`	`error = function(e) {`
`377`	`377`	`stop("Failed to deserialize response")`
`378`	`378`	`}`
`@@ -473,7 +473,7 @@ QueryApi <- R6::R6Class(`
`473`	`473`	`}`
`474`	`474`
`475`	`475`	`deserialized_resp_obj <- tryCatch(`
`476`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`476`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`477`	`477`	`error = function(e) {`
`478`	`478`	`stop("Failed to deserialize response")`
`479`	`479`	`}`
`@@ -574,7 +574,7 @@ QueryApi <- R6::R6Class(`
`574`	`574`	`}`
`575`	`575`
`576`	`576`	`deserialized_resp_obj <- tryCatch(`
`577`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`577`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`578`	`578`	`error = function(e) {`
`579`	`579`	`stop("Failed to deserialize response")`
`580`	`580`	`}`
`@@ -665,7 +665,7 @@ QueryApi <- R6::R6Class(`
`665`	`665`	`}`
`666`	`666`
`667`	`667`	`deserialized_resp_obj <- tryCatch(`
`668`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`668`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`669`	`669`	`error = function(e) {`
`670`	`670`	`stop("Failed to deserialize response")`
`671`	`671`	`}`
`@@ -756,7 +756,7 @@ QueryApi <- R6::R6Class(`
`756`	`756`	`}`
`757`	`757`
`758`	`758`	`deserialized_resp_obj <- tryCatch(`
`759`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`759`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`760`	`760`	`error = function(e) {`
`761`	`761`	`stop("Failed to deserialize response")`
`762`	`762`	`}`
`@@ -847,7 +847,7 @@ QueryApi <- R6::R6Class(`
`847`	`847`	`}`
`848`	`848`
`849`	`849`	`deserialized_resp_obj <- tryCatch(`
`850`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`850`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`851`	`851`	`error = function(e) {`
`852`	`852`	`stop("Failed to deserialize response")`
`853`	`853`	`}`
`@@ -938,7 +938,7 @@ QueryApi <- R6::R6Class(`
`938`	`938`	`}`
`939`	`939`
`940`	`940`	`deserialized_resp_obj <- tryCatch(`
`941`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`941`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`942`	`942`	`error = function(e) {`
`943`	`943`	`stop("Failed to deserialize response")`
`944`	`944`	`}`
`@@ -1029,7 +1029,7 @@ QueryApi <- R6::R6Class(`
`1029`	`1029`	`}`
`1030`	`1030`
`1031`	`1031`	`deserialized_resp_obj <- tryCatch(`
`1032`		`- self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("openapi")),`
	`1032`	`+ self$api_client$deserialize(local_var_resp$response_as_text(), "character", loadNamespace("openapi")),`
`1033`	`1033`	`error = function(e) {`
`1034`	`1034`	`stop("Failed to deserialize response")`
`1035`	`1035`	`}`