forked from loafle/openapi-generator-original
6075b8a8f1
* changed files from rebuilding project and updating samples * change default value of from_encoding to empty string - from_encoding = NULL is invalid and produces an error, as only strings are allowed, see https://www.rdocumentation.org/packages/base/versions/3.6.2/topics/iconv - defaulting to an empty string fixes this issue * fix map being surrounded by quotes in json * allow httr2 client to deal with empty response body * changed files from rebuilding project and updating samples * added PetMap schema for test of correct map serialization in toJSONString and regenerated samples
68 lines
2.3 KiB
R
68 lines
2.3 KiB
R
#' Echo Server API
|
|
#'
|
|
#' Echo Server API
|
|
#'
|
|
#' The version of the OpenAPI document: 0.1.0
|
|
#' Contact: team@openapitools.org
|
|
#' Generated by: https://openapi-generator.tech
|
|
#'
|
|
#' @docType class
|
|
#' @title ApiResponse
|
|
#' @description ApiResponse Class
|
|
#' @format An \code{R6Class} generator object
|
|
#' @field content The deserialized response body.
|
|
#' @field response The raw response from the endpoint.
|
|
#' @field status_code The HTTP response status code.
|
|
#' @field status_code_desc The brief description of the HTTP response status code.
|
|
#' @field headers The HTTP response headers.
|
|
#' @export
|
|
ApiResponse <- R6::R6Class(
|
|
"ApiResponse",
|
|
public = list(
|
|
content = NULL,
|
|
response = NULL,
|
|
status_code = NULL,
|
|
status_code_desc = NULL,
|
|
headers = NULL,
|
|
#' Initialize a new ApiResponse class.
|
|
#'
|
|
#' @description
|
|
#' Initialize a new ApiResponse class.
|
|
#'
|
|
#' @param content The deserialized response body.
|
|
#' @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
|
|
initialize = function(content = NULL,
|
|
response = NULL,
|
|
status_code = NULL,
|
|
status_code_desc = NULL,
|
|
headers = NULL) {
|
|
self$content <- content
|
|
self$response <- response
|
|
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 = "", 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)
|
|
}
|
|
)
|
|
)
|