forked from loafle/openapi-generator-original
71 lines
2.4 KiB
R
71 lines
2.4 KiB
R
# Swagger Petstore
|
|
#
|
|
# This is a sample server Petstore server. You can find out more about Swagger at [http://swagger.io](http://swagger.io) or on [irc.freenode.net, #swagger](http://swagger.io/irc/). For this sample, you can use the api key `special-key` to test the authorization filters.
|
|
#
|
|
# OpenAPI spec version: 1.0.0
|
|
# Contact: apiteam@swagger.io
|
|
# Generated by: https://github.com/swagger-api/swagger-codegen.git
|
|
|
|
|
|
#' ApiClient Class
|
|
#'
|
|
#' Generic API client for Swagger client library builds.
|
|
#' Swagger generic API client. This client handles the client-
|
|
#' server communication, and is invariant across implementations. Specifics of
|
|
#' the methods and models for each application are generated from the Swagger
|
|
#' templates.
|
|
#'
|
|
#' NOTE: This class is auto generated by the swagger code generator program.
|
|
#' Ref: https://github.com/swagger-api/swagger-codegen
|
|
#' Do not edit the class manually.
|
|
#'
|
|
#' @export
|
|
ApiClient <- R6::R6Class(
|
|
'ApiClient',
|
|
public = list(
|
|
basePath = "http://petstore.swagger.io/v2",
|
|
configuration = NULL,
|
|
userAgent = NULL,
|
|
defaultHeaders = NULL,
|
|
initialize = function(basePath, configuration, defaultHeaders){
|
|
if (!missing(basePath)) {
|
|
self$basePath <- basePath
|
|
}
|
|
|
|
if (!missing(configuration)) {
|
|
self$configuration <- configuration
|
|
}
|
|
|
|
if (!missing(defaultHeaders)) {
|
|
self$defaultHeaders <- defaultHeaders
|
|
}
|
|
|
|
self$`userAgent` <- 'Swagger-Codegen/1.0.0/r'
|
|
},
|
|
callApi = function(url, method, queryParams, headerParams, body, ...){
|
|
headers <- httr::add_headers(headerParams)
|
|
|
|
if (method == "GET") {
|
|
httr::GET(url, queryParams, headers, ...)
|
|
}
|
|
else if (method == "POST") {
|
|
httr::POST(url, queryParams, headers, body = body, ...)
|
|
}
|
|
else if (method == "PUT") {
|
|
httr::PUT(url, queryParams, headers, body = body, ...)
|
|
}
|
|
else if (method == "PATCH") {
|
|
httr::PATCH(url, queryParams, headers, body = body, ...)
|
|
}
|
|
else if (method == "HEAD") {
|
|
httr::HEAD(url, queryParams, headers, ...)
|
|
}
|
|
else if (method == "DELETE") {
|
|
httr::DELETE(url, queryParams, headers, ...)
|
|
}
|
|
else {
|
|
stop("http method must be `GET`, `HEAD`, `OPTIONS`, `POST`, `PATCH`, `PUT` or `DELETE`.")
|
|
}
|
|
}
|
|
)
|
|
) |