forked from loafle/openapi-generator-original
1357 lines
52 KiB
R
1357 lines
52 KiB
R
#' OpenAPI Petstore
|
|
#'
|
|
#' This is a sample server Petstore server. For this sample, you can use the api key `special-key` to test the authorization filters.
|
|
#'
|
|
#' The version of the OpenAPI document: 1.0.0
|
|
#' Generated by: https://openapi-generator.tech
|
|
#'
|
|
#' @docType class
|
|
#' @title User operations
|
|
#' @description UserApi
|
|
#' @format An \code{R6Class} generator object
|
|
#' @field api_client Handles the client-server communication.
|
|
#'
|
|
#' @section Methods:
|
|
#' \describe{
|
|
#' \strong{ create_user } \emph{ Create user }
|
|
#' This can only be done by the logged in user.
|
|
#'
|
|
#' \itemize{
|
|
#' \item \emph{ @param } user \link{User}
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 0 | successful operation
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' \strong{ create_users_with_array_input } \emph{ Creates list of users with given input array }
|
|
#'
|
|
#'
|
|
#' \itemize{
|
|
#' \item \emph{ @param } user list( \link{User} )
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 0 | successful operation
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' \strong{ create_users_with_list_input } \emph{ Creates list of users with given input array }
|
|
#'
|
|
#'
|
|
#' \itemize{
|
|
#' \item \emph{ @param } user list( \link{User} )
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 0 | successful operation
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' \strong{ delete_user } \emph{ Delete user }
|
|
#' This can only be done by the logged in user.
|
|
#'
|
|
#' \itemize{
|
|
#' \item \emph{ @param } username character
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 400 | Invalid username supplied
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' \item status code : 404 | User not found
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' \strong{ get_user_by_name } \emph{ Get user by user name }
|
|
#'
|
|
#'
|
|
#' \itemize{
|
|
#' \item \emph{ @param } username character
|
|
#' \item \emph{ @returnType } \link{User} \cr
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 200 | successful operation
|
|
#'
|
|
#' \item return type : User
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' \item status code : 400 | Invalid username supplied
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' \item status code : 404 | User not found
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' \strong{ login_user } \emph{ Logs user into the system }
|
|
#'
|
|
#'
|
|
#' \itemize{
|
|
#' \item \emph{ @param } username character
|
|
#' \item \emph{ @param } password character
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 200 | successful operation
|
|
#'
|
|
#' \item return type : character
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' Set-Cookie \tab Cookie authentication key for use with the `api_key` apiKey authentication. \cr
|
|
#' X-Rate-Limit \tab calls per hour allowed by the user \cr
|
|
#' X-Expires-After \tab date in UTC when token expires \cr
|
|
#' }
|
|
#' \item status code : 400 | Invalid username/password supplied
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' \strong{ logout_user } \emph{ Logs out current logged in user session }
|
|
#'
|
|
#'
|
|
#' \itemize{
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 0 | successful operation
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' \strong{ update_user } \emph{ Updated user }
|
|
#' This can only be done by the logged in user.
|
|
#'
|
|
#' \itemize{
|
|
#' \item \emph{ @param } username character
|
|
#' \item \emph{ @param } user \link{User}
|
|
#'
|
|
#' \item On encountering errors, an error of subclass ApiException will be thrown.
|
|
#'
|
|
#' \item status code : 400 | Invalid user supplied
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' \item status code : 404 | User not found
|
|
#'
|
|
#'
|
|
#' \item response headers :
|
|
#'
|
|
#' \tabular{ll}{
|
|
#' }
|
|
#' }
|
|
#'
|
|
#' }
|
|
#'
|
|
#'
|
|
#' @examples
|
|
#' \dontrun{
|
|
#' #################### create_user ####################
|
|
#'
|
|
#' library(petstore)
|
|
#' var_user <- User$new(123, "username_example", "firstName_example", "lastName_example", "email_example", "password_example", "phone_example", 123) # User | Created user object
|
|
#'
|
|
#' #Create user
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' # Configure API key authorization: api_key
|
|
#' api_instance$api_client$api_keys["api_key"] <- Sys.getenv("API_KEY")
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' api_instance$user_api$create_user(var_user),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `create_user`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' }#'
|
|
#' # This endpoint doesn't return data
|
|
#'
|
|
#'
|
|
#' #################### create_users_with_array_input ####################
|
|
#'
|
|
#' library(petstore)
|
|
#' var_user <- c(User$new(123, "username_example", "firstName_example", "lastName_example", "email_example", "password_example", "phone_example", 123)) # array[User] | List of user object
|
|
#'
|
|
#' #Creates list of users with given input array
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' # Configure API key authorization: api_key
|
|
#' api_instance$api_client$api_keys["api_key"] <- Sys.getenv("API_KEY")
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' api_instance$user_api$create_users_with_array_input(var_user),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `create_users_with_array_input`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' }#'
|
|
#' # This endpoint doesn't return data
|
|
#'
|
|
#'
|
|
#' #################### create_users_with_list_input ####################
|
|
#'
|
|
#' library(petstore)
|
|
#' var_user <- c(User$new(123, "username_example", "firstName_example", "lastName_example", "email_example", "password_example", "phone_example", 123)) # array[User] | List of user object
|
|
#'
|
|
#' #Creates list of users with given input array
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' # Configure API key authorization: api_key
|
|
#' api_instance$api_client$api_keys["api_key"] <- Sys.getenv("API_KEY")
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' api_instance$user_api$create_users_with_list_input(var_user),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `create_users_with_list_input`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' }#'
|
|
#' # This endpoint doesn't return data
|
|
#'
|
|
#'
|
|
#' #################### delete_user ####################
|
|
#'
|
|
#' library(petstore)
|
|
#' var_username <- "username_example" # character | The name that needs to be deleted
|
|
#'
|
|
#' #Delete user
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' # Configure API key authorization: api_key
|
|
#' api_instance$api_client$api_keys["api_key"] <- Sys.getenv("API_KEY")
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' api_instance$user_api$delete_user(var_username),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `delete_user`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' }#'
|
|
#' # This endpoint doesn't return data
|
|
#'
|
|
#'
|
|
#' #################### get_user_by_name ####################
|
|
#'
|
|
#' library(petstore)
|
|
#' var_username <- "username_example" # character | The name that needs to be fetched. Use user1 for testing.
|
|
#'
|
|
#' #Get user by user name
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' # to save the result into a file, simply add the optional `data_file` parameter, e.g.
|
|
#' # api_instance$user_api$get_user_by_name(var_username, data_file = "result.txt"),
|
|
#'
|
|
#'
|
|
#' api_instance$user_api$get_user_by_name(var_username),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `get_user_by_name`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' } else {
|
|
#' # deserialized response object
|
|
#' print("The response is ...")
|
|
#' dput(result$toString())
|
|
#' }
|
|
#'
|
|
#'
|
|
#'
|
|
#' #################### login_user ####################
|
|
#'
|
|
#' library(petstore)
|
|
#' var_username <- "username_example" # character | The user name for login
|
|
#' var_password <- "password_example" # character | The password for login in clear text
|
|
#'
|
|
#' #Logs user into the system
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' # to save the result into a file, simply add the optional `data_file` parameter, e.g.
|
|
#' # api_instance$user_api$login_user(var_username, var_password, data_file = "result.txt"),
|
|
#'
|
|
#'
|
|
#' api_instance$user_api$login_user(var_username, var_password),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `login_user`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' } else {
|
|
#' # deserialized response object
|
|
#' print("The response is ...")
|
|
#' dput(result$toString())
|
|
#' }
|
|
#'
|
|
#'
|
|
#'
|
|
#' #################### logout_user ####################
|
|
#'
|
|
#' library(petstore)
|
|
#'
|
|
#' #Logs out current logged in user session
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' # Configure API key authorization: api_key
|
|
#' api_instance$api_client$api_keys["api_key"] <- Sys.getenv("API_KEY")
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' api_instance$user_api$logout_user(),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `logout_user`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' }#'
|
|
#' # This endpoint doesn't return data
|
|
#'
|
|
#'
|
|
#' #################### update_user ####################
|
|
#'
|
|
#' library(petstore)
|
|
#' var_username <- "username_example" # character | name that need to be deleted
|
|
#' var_user <- User$new(123, "username_example", "firstName_example", "lastName_example", "email_example", "password_example", "phone_example", 123) # User | Updated user object
|
|
#'
|
|
#' #Updated user
|
|
#' api_instance <- petstore_api$new()
|
|
#'
|
|
#' # Configure API key authorization: api_key
|
|
#' api_instance$api_client$api_keys["api_key"] <- Sys.getenv("API_KEY")
|
|
#'
|
|
#' result <- tryCatch(
|
|
#'
|
|
#' api_instance$user_api$update_user(var_username, var_user),
|
|
#' ApiException = function(ex) ex
|
|
#' )
|
|
#' # In case of error, print the error object
|
|
#' if (!is.null(result$ApiException)) {
|
|
#' print("Exception occurs when calling `update_user`:")
|
|
#' dput(result$ApiException$toString())
|
|
#'
|
|
#' # error object
|
|
#' dput(result$ApiException$error_object$toJSONString())
|
|
#'
|
|
#' }#'
|
|
#' # This endpoint doesn't return data
|
|
#'
|
|
#'
|
|
#' }
|
|
#' @importFrom R6 R6Class
|
|
#' @importFrom base64enc base64encode
|
|
#' @importFrom rlang abort
|
|
#' @export
|
|
UserApi <- R6::R6Class(
|
|
"UserApi",
|
|
public = list(
|
|
api_client = NULL,
|
|
#' Initialize a new UserApi.
|
|
#'
|
|
#' @description
|
|
#' Initialize a new UserApi.
|
|
#'
|
|
#' @param api_client An instance of API client.
|
|
#' @export
|
|
initialize = function(api_client) {
|
|
if (!missing(api_client)) {
|
|
self$api_client <- api_client
|
|
} else {
|
|
self$api_client <- ApiClient$new()
|
|
}
|
|
},
|
|
#' Create user
|
|
#'
|
|
#' @description
|
|
#' Create user
|
|
#'
|
|
#' @param user Created user object
|
|
#' @param ... Other optional arguments
|
|
#' @return void
|
|
#' @export
|
|
create_user = function(user, ...) {
|
|
local_var_response <- self$create_user_with_http_info(user, ...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Create user
|
|
#'
|
|
#' @description
|
|
#' Create user
|
|
#'
|
|
#' @param user Created user object
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (void) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
create_user_with_http_info = function(user, ...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
if (missing(`user`)) {
|
|
rlang::abort(message = "Missing required parameter `user`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `user`."))
|
|
}
|
|
|
|
|
|
if (!is.null(`user`)) {
|
|
local_var_body <- `user`$toJSONString()
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
local_var_url_path <- "/user"
|
|
# API key authentication
|
|
if ("api_key" %in% names(self$api_client$api_keys) && nchar(self$api_client$api_keys["api_key"]) > 0) {
|
|
header_params["api_key"] <- paste(unlist(self$api_client$api_keys["api_key"]), collapse = "")
|
|
}
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list()
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list("application/json")
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "POST",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
local_var_resp$content <- NULL
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
},
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @description
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @param user List of user object
|
|
#' @param ... Other optional arguments
|
|
#' @return void
|
|
#' @export
|
|
create_users_with_array_input = function(user, ...) {
|
|
local_var_response <- self$create_users_with_array_input_with_http_info(user, ...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @description
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @param user List of user object
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (void) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
create_users_with_array_input_with_http_info = function(user, ...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
if (missing(`user`)) {
|
|
rlang::abort(message = "Missing required parameter `user`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `user`."))
|
|
}
|
|
|
|
|
|
if (!is.null(`user`)) {
|
|
body.items <- paste(unlist(lapply(`user`, function(param) {
|
|
param$toJSONString()
|
|
})), collapse = ",")
|
|
local_var_body <- paste0("[", body.items, "]")
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
local_var_url_path <- "/user/createWithArray"
|
|
# API key authentication
|
|
if ("api_key" %in% names(self$api_client$api_keys) && nchar(self$api_client$api_keys["api_key"]) > 0) {
|
|
header_params["api_key"] <- paste(unlist(self$api_client$api_keys["api_key"]), collapse = "")
|
|
}
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list()
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list("application/json")
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "POST",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
local_var_resp$content <- NULL
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
},
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @description
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @param user List of user object
|
|
#' @param ... Other optional arguments
|
|
#' @return void
|
|
#' @export
|
|
create_users_with_list_input = function(user, ...) {
|
|
local_var_response <- self$create_users_with_list_input_with_http_info(user, ...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @description
|
|
#' Creates list of users with given input array
|
|
#'
|
|
#' @param user List of user object
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (void) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
create_users_with_list_input_with_http_info = function(user, ...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
if (missing(`user`)) {
|
|
rlang::abort(message = "Missing required parameter `user`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `user`."))
|
|
}
|
|
|
|
|
|
if (!is.null(`user`)) {
|
|
body.items <- paste(unlist(lapply(`user`, function(param) {
|
|
param$toJSONString()
|
|
})), collapse = ",")
|
|
local_var_body <- paste0("[", body.items, "]")
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
local_var_url_path <- "/user/createWithList"
|
|
# API key authentication
|
|
if ("api_key" %in% names(self$api_client$api_keys) && nchar(self$api_client$api_keys["api_key"]) > 0) {
|
|
header_params["api_key"] <- paste(unlist(self$api_client$api_keys["api_key"]), collapse = "")
|
|
}
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list()
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list("application/json")
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "POST",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
local_var_resp$content <- NULL
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
},
|
|
#' Delete user
|
|
#'
|
|
#' @description
|
|
#' Delete user
|
|
#'
|
|
#' @param username The name that needs to be deleted
|
|
#' @param ... Other optional arguments
|
|
#' @return void
|
|
#' @export
|
|
delete_user = function(username, ...) {
|
|
local_var_response <- self$delete_user_with_http_info(username, ...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Delete user
|
|
#'
|
|
#' @description
|
|
#' Delete user
|
|
#'
|
|
#' @param username The name that needs to be deleted
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (void) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
delete_user_with_http_info = function(username, ...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
if (missing(`username`)) {
|
|
rlang::abort(message = "Missing required parameter `username`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `username`."))
|
|
}
|
|
|
|
|
|
local_var_url_path <- "/user/{username}"
|
|
if (!missing(`username`)) {
|
|
local_var_url_path <- gsub("\\{username\\}", URLencode(as.character(`username`), reserved = TRUE), local_var_url_path)
|
|
}
|
|
|
|
# API key authentication
|
|
if ("api_key" %in% names(self$api_client$api_keys) && nchar(self$api_client$api_keys["api_key"]) > 0) {
|
|
header_params["api_key"] <- paste(unlist(self$api_client$api_keys["api_key"]), collapse = "")
|
|
}
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list()
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list()
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "DELETE",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
local_var_resp$content <- NULL
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
},
|
|
#' Get user by user name
|
|
#'
|
|
#' @description
|
|
#' Get user by user name
|
|
#'
|
|
#' @param username The name that needs to be fetched. Use user1 for testing.
|
|
#' @param data_file (optional) name of the data file to save the result
|
|
#' @param ... Other optional arguments
|
|
#' @return User
|
|
#' @export
|
|
get_user_by_name = function(username, data_file = NULL, ...) {
|
|
local_var_response <- self$get_user_by_name_with_http_info(username, data_file = data_file, ...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Get user by user name
|
|
#'
|
|
#' @description
|
|
#' Get user by user name
|
|
#'
|
|
#' @param username The name that needs to be fetched. Use user1 for testing.
|
|
#' @param data_file (optional) name of the data file to save the result
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (User) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
get_user_by_name_with_http_info = function(username, data_file = NULL, ...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
if (missing(`username`)) {
|
|
rlang::abort(message = "Missing required parameter `username`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `username`."))
|
|
}
|
|
|
|
|
|
local_var_url_path <- "/user/{username}"
|
|
if (!missing(`username`)) {
|
|
local_var_url_path <- gsub("\\{username\\}", URLencode(as.character(`username`), reserved = TRUE), local_var_url_path)
|
|
}
|
|
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list("application/xml", "application/json")
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list()
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "GET",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
# save response in a file
|
|
if (!is.null(data_file)) {
|
|
write(local_var_resp$response, data_file)
|
|
}
|
|
|
|
deserialized_resp_obj <- tryCatch(
|
|
self$api_client$deserialize(local_var_resp$response, "User", loadNamespace("petstore")),
|
|
error = function(e) {
|
|
rlang::abort(message = "Failed to deserialize response",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
)
|
|
local_var_resp$content <- deserialized_resp_obj
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
},
|
|
#' Logs user into the system
|
|
#'
|
|
#' @description
|
|
#' Logs user into the system
|
|
#'
|
|
#' @param username The user name for login
|
|
#' @param password The password for login in clear text
|
|
#' @param data_file (optional) name of the data file to save the result
|
|
#' @param ... Other optional arguments
|
|
#' @return character
|
|
#' @export
|
|
login_user = function(username, password, data_file = NULL, ...) {
|
|
local_var_response <- self$login_user_with_http_info(username, password, data_file = data_file, ...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Logs user into the system
|
|
#'
|
|
#' @description
|
|
#' Logs user into the system
|
|
#'
|
|
#' @param username The user name for login
|
|
#' @param password The password for login in clear text
|
|
#' @param data_file (optional) name of the data file to save the result
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (character) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
login_user_with_http_info = function(username, password, data_file = NULL, ...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
if (missing(`username`)) {
|
|
rlang::abort(message = "Missing required parameter `username`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `username`."))
|
|
}
|
|
|
|
if (missing(`password`)) {
|
|
rlang::abort(message = "Missing required parameter `password`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `password`."))
|
|
}
|
|
|
|
if (!str_detect(`username`, "^[a-zA-Z0-9]+[a-zA-Z0-9\\.\\-_]*[a-zA-Z0-9]+$")) {
|
|
rlang::abort(message = "Invalid value for `username` when calling UserApi$login_user, must conform to the pattern ^[a-zA-Z0-9]+[a-zA-Z0-9\\.\\-_]*[a-zA-Z0-9]+$.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Invalid value for `username` when calling UserApi$login_user, must conform to the pattern ^[a-zA-Z0-9]+[a-zA-Z0-9\\.\\-_]*[a-zA-Z0-9]+$."))
|
|
}
|
|
|
|
|
|
query_params[["username"]] <- `username`
|
|
|
|
query_params[["password"]] <- `password`
|
|
|
|
local_var_url_path <- "/user/login"
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list("application/xml", "application/json")
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list()
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "GET",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
# save response in a file
|
|
if (!is.null(data_file)) {
|
|
write(local_var_resp$response, data_file)
|
|
}
|
|
|
|
deserialized_resp_obj <- tryCatch(
|
|
self$api_client$deserialize(local_var_resp$response, "character", loadNamespace("petstore")),
|
|
error = function(e) {
|
|
rlang::abort(message = "Failed to deserialize response",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
)
|
|
local_var_resp$content <- deserialized_resp_obj
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
},
|
|
#' Logs out current logged in user session
|
|
#'
|
|
#' @description
|
|
#' Logs out current logged in user session
|
|
#'
|
|
#' @param ... Other optional arguments
|
|
#' @return void
|
|
#' @export
|
|
logout_user = function(...) {
|
|
local_var_response <- self$logout_user_with_http_info(...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Logs out current logged in user session
|
|
#'
|
|
#' @description
|
|
#' Logs out current logged in user session
|
|
#'
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (void) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
logout_user_with_http_info = function(...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
local_var_url_path <- "/user/logout"
|
|
# API key authentication
|
|
if ("api_key" %in% names(self$api_client$api_keys) && nchar(self$api_client$api_keys["api_key"]) > 0) {
|
|
header_params["api_key"] <- paste(unlist(self$api_client$api_keys["api_key"]), collapse = "")
|
|
}
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list()
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list()
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "GET",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
local_var_resp$content <- NULL
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
},
|
|
#' Updated user
|
|
#'
|
|
#' @description
|
|
#' Updated user
|
|
#'
|
|
#' @param username name that need to be deleted
|
|
#' @param user Updated user object
|
|
#' @param ... Other optional arguments
|
|
#' @return void
|
|
#' @export
|
|
update_user = function(username, user, ...) {
|
|
local_var_response <- self$update_user_with_http_info(username, user, ...)
|
|
if (local_var_response$status_code >= 200 && local_var_response$status_code <= 299) {
|
|
local_var_response$content
|
|
} else if (local_var_response$status_code >= 300 && local_var_response$status_code <= 399) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 400 && local_var_response$status_code <= 499) {
|
|
local_var_response
|
|
} else if (local_var_response$status_code >= 500 && local_var_response$status_code <= 599) {
|
|
local_var_response
|
|
}
|
|
},
|
|
#' Updated user
|
|
#'
|
|
#' @description
|
|
#' Updated user
|
|
#'
|
|
#' @param username name that need to be deleted
|
|
#' @param user Updated user object
|
|
#' @param ... Other optional arguments
|
|
#' @return API response (void) with additional information such as HTTP status code, headers
|
|
#' @export
|
|
update_user_with_http_info = function(username, user, ...) {
|
|
args <- list(...)
|
|
query_params <- list()
|
|
header_params <- c()
|
|
form_params <- list()
|
|
file_params <- list()
|
|
local_var_body <- NULL
|
|
oauth_scopes <- NULL
|
|
is_oauth <- FALSE
|
|
|
|
if (missing(`username`)) {
|
|
rlang::abort(message = "Missing required parameter `username`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `username`."))
|
|
}
|
|
|
|
if (missing(`user`)) {
|
|
rlang::abort(message = "Missing required parameter `user`.",
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(status = 0,
|
|
reason = "Missing required parameter `user`."))
|
|
}
|
|
|
|
|
|
|
|
if (!is.null(`user`)) {
|
|
local_var_body <- `user`$toJSONString()
|
|
} else {
|
|
body <- NULL
|
|
}
|
|
|
|
local_var_url_path <- "/user/{username}"
|
|
if (!missing(`username`)) {
|
|
local_var_url_path <- gsub("\\{username\\}", URLencode(as.character(`username`), reserved = TRUE), local_var_url_path)
|
|
}
|
|
|
|
# API key authentication
|
|
if ("api_key" %in% names(self$api_client$api_keys) && nchar(self$api_client$api_keys["api_key"]) > 0) {
|
|
header_params["api_key"] <- paste(unlist(self$api_client$api_keys["api_key"]), collapse = "")
|
|
}
|
|
|
|
# The Accept request HTTP header
|
|
local_var_accepts <- list()
|
|
|
|
# The Content-Type representation header
|
|
local_var_content_types <- list("application/json")
|
|
|
|
local_var_resp <- self$api_client$CallApi(url = paste0(self$api_client$base_path, local_var_url_path),
|
|
method = "PUT",
|
|
query_params = query_params,
|
|
header_params = header_params,
|
|
form_params = form_params,
|
|
file_params = file_params,
|
|
accepts = local_var_accepts,
|
|
content_types = local_var_content_types,
|
|
body = local_var_body,
|
|
is_oauth = is_oauth,
|
|
oauth_scopes = oauth_scopes,
|
|
...)
|
|
|
|
if (local_var_resp$status_code >= 200 && local_var_resp$status_code <= 299) {
|
|
local_var_resp$content <- NULL
|
|
local_var_resp
|
|
} else if (local_var_resp$status_code >= 300 && local_var_resp$status_code <= 399) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- paste("Server returned ", local_var_resp$status_code, " response status code.")
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 400 && local_var_resp$status_code <= 499) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api client exception encountered."
|
|
}
|
|
rlang::abort(message = local_var_error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
} else if (local_var_resp$status_code >= 500 && local_var_resp$status_code <= 599) {
|
|
local_var_error_msg <- local_var_resp$response
|
|
if (local_var_error_msg == "") {
|
|
local_var_error_msg <- "Api server exception encountered."
|
|
}
|
|
rlang::abort(message = error_msg,
|
|
.subclass = "ApiException",
|
|
ApiException = ApiException$new(http_response = local_var_resp))
|
|
}
|
|
}
|
|
)
|
|
)
|