forked from loafle/openapi-generator-original
286 lines
9.9 KiB
R
286 lines
9.9 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
|
|
|
|
#' @title User operations
|
|
#' @description petstore.User
|
|
#'
|
|
#' @field path Stores url path of the request.
|
|
#' @field apiClient Handles the client-server communication.
|
|
#' @field userAgent Set the user agent of the request.
|
|
#'
|
|
#' @importFrom R6 R6Class
|
|
#'
|
|
#' @section Methods:
|
|
#' \describe{
|
|
#'
|
|
#' create_user Create user
|
|
#'
|
|
#'
|
|
#' create_users_with_array_input Creates list of users with given input array
|
|
#'
|
|
#'
|
|
#' create_users_with_list_input Creates list of users with given input array
|
|
#'
|
|
#'
|
|
#' delete_user Delete user
|
|
#'
|
|
#'
|
|
#' get_user_by_name Get user by user name
|
|
#'
|
|
#'
|
|
#' login_user Logs user into the system
|
|
#'
|
|
#'
|
|
#' logout_user Logs out current logged in user session
|
|
#'
|
|
#'
|
|
#' update_user Updated user
|
|
#'
|
|
#' }
|
|
#'
|
|
#' @export
|
|
UserApi <- R6::R6Class(
|
|
'UserApi',
|
|
public = list(
|
|
userAgent = "Swagger-Codegen/1.0.0/r",
|
|
apiClient = NULL,
|
|
initialize = function(apiClient){
|
|
if (!missing(apiClient)) {
|
|
self$apiClient <- apiClient
|
|
}
|
|
else {
|
|
self$apiClient <- ApiClient$new()
|
|
}
|
|
},
|
|
create_user = function(body, ...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
if (!missing(`body`)) {
|
|
body <- `body`$toJSONString()
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
urlPath <- "/user"
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "POST",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
# void response, no need to return anything
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
},
|
|
create_users_with_array_input = function(body, ...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
if (!missing(`body`)) {
|
|
body <- `body`$toJSONString()
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
urlPath <- "/user/createWithArray"
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "POST",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
# void response, no need to return anything
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
},
|
|
create_users_with_list_input = function(body, ...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
if (!missing(`body`)) {
|
|
body <- `body`$toJSONString()
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
urlPath <- "/user/createWithList"
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "POST",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
# void response, no need to return anything
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
},
|
|
delete_user = function(username, ...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
urlPath <- "/user/{username}"
|
|
if (!missing(`username`)) {
|
|
urlPath <- gsub(paste0("\\{", "username", "\\}"), `username`, urlPath)
|
|
}
|
|
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "DELETE",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
# void response, no need to return anything
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
},
|
|
get_user_by_name = function(username, ...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
urlPath <- "/user/{username}"
|
|
if (!missing(`username`)) {
|
|
urlPath <- gsub(paste0("\\{", "username", "\\}"), `username`, urlPath)
|
|
}
|
|
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "GET",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
returnObject <- User$new()
|
|
result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
|
|
Response$new(returnObject, resp)
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
},
|
|
login_user = function(username, password, ...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
if (!missing(`username`)) {
|
|
queryParams['username'] <- username
|
|
}
|
|
|
|
if (!missing(`password`)) {
|
|
queryParams['password'] <- password
|
|
}
|
|
|
|
urlPath <- "/user/login"
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "GET",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
returnObject <- Character$new()
|
|
result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
|
|
Response$new(returnObject, resp)
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
},
|
|
logout_user = function(...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
urlPath <- "/user/logout"
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "GET",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
# void response, no need to return anything
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
},
|
|
update_user = function(username, body, ...){
|
|
args <- list(...)
|
|
queryParams <- list()
|
|
headerParams <- character()
|
|
|
|
if (!missing(`body`)) {
|
|
body <- `body`$toJSONString()
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
urlPath <- "/user/{username}"
|
|
if (!missing(`username`)) {
|
|
urlPath <- gsub(paste0("\\{", "username", "\\}"), `username`, urlPath)
|
|
}
|
|
|
|
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
|
|
method = "PUT",
|
|
queryParams = queryParams,
|
|
headerParams = headerParams,
|
|
body = body,
|
|
...)
|
|
|
|
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
|
|
# void response, no need to return anything
|
|
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
|
|
Response$new("API client error", resp)
|
|
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
|
|
Response$new("API server error", resp)
|
|
}
|
|
|
|
}
|
|
)
|
|
)
|