forked from loafle/openapi-generator-original
6a631b4cc0
* add discriminator property, mapping * add discriminator, mapping support to R client generator * add discriminator, mapping support to R client genrator httr library
242 lines
7.5 KiB
R
242 lines
7.5 KiB
R
|
|
install.packages("petstore_1.0.0.tar.gz",repos=NULL, type="source")
|
|
library(petstore)
|
|
library(jsonlite)
|
|
|
|
|
|
|
|
var_status <- list("something inside", "explode please", "123") # array[character] | Status values that need to be considered for filter
|
|
|
|
# Finds Pets by status
|
|
api_instance <- petstore_api$new()
|
|
# Configure OAuth2 access token for authorization: petstore_auth
|
|
#api_instance$api_client$access_token <- Sys.getenv("ACCESS_TOKEN")
|
|
result <- tryCatch(
|
|
# to save the result into a file, simply add the optional `data_file` parameter, e.g.
|
|
# api_instance$pet_api$find_pets_by_status(var_status, data_file = "result.txt"),
|
|
api_instance$pet_api$find_pets_by_status(var_status),
|
|
ApiException = function(ex) ex
|
|
)
|
|
# In case of error, print the error object
|
|
if (!is.null(result$ApiException)) {
|
|
print("Exception occurs when calling `find_pets_by_status`:")
|
|
dput(result$ApiException$toString())
|
|
# error object
|
|
dput(result$ApiException$error_object$toJSONString())
|
|
} else {
|
|
# deserialized response object
|
|
print("The response is ...")
|
|
dput(result)
|
|
}
|
|
|
|
|
|
|
|
var_tags <- c("innerzzzzzzz", "second,example", "345") # array[character] | Tags to filter by
|
|
|
|
# Finds Pets by tags
|
|
api_instance <- petstore_api$new()
|
|
# Configure OAuth2 access token for authorization: petstore_auth
|
|
api_instance$api_client$access_token <- Sys.getenv("ACCESS_TOKEN")
|
|
result <- tryCatch(
|
|
# to save the result into a file, simply add the optional `data_file` parameter, e.g.
|
|
# api_instance$pet_api$find_pets_by_tags(var_tags, data_file = "result.txt"),
|
|
api_instance$pet_api$find_pets_by_tags(var_tags),
|
|
ApiException = function(ex) ex
|
|
)
|
|
# In case of error, print the error object
|
|
if (!is.null(result$ApiException)) {
|
|
print("Exception occurs when calling `find_pets_by_tags`:")
|
|
dput(result$ApiException$toString())
|
|
# error object
|
|
dput(result$ApiException$error_object$toJSONString())
|
|
} else {
|
|
# deserialized response object
|
|
print("The response is ...")
|
|
dput(result)
|
|
}
|
|
|
|
invokeRestart("abort")
|
|
|
|
t <- Tag$new()
|
|
t$id <- 123
|
|
t$additional_properties <- c("abc" = 849, "array" = list('a', 'b', 'c'))
|
|
t$additional_properties
|
|
t$additional_properties["abc"]
|
|
t$additional_properties["array"]
|
|
|
|
print(t)
|
|
#print(t$toJSON())
|
|
#print(t$toJSONString())
|
|
|
|
print("done tag")
|
|
|
|
whale_json <- '{"className": "whale", "hasBaleen": true, "hasTeeth": true}'
|
|
zebra_json <- '{"className": "zebra", "type": "plains"}'
|
|
|
|
mammal <- Mammal$new()
|
|
mammal$fromJSON(whale_json)
|
|
|
|
api_client <- ApiClient$new()
|
|
api_client$username <- "username999"
|
|
api_client$password <- "password888"
|
|
|
|
api_wrapper <- petstore_api$new(api_client)
|
|
# test api_client in pet_api of the wrapper
|
|
cat(api_wrapper$pet_api$api_client$username)
|
|
cat(api_wrapper$pet_api$api_client$password)
|
|
|
|
#cat(address(api_client))
|
|
#cat(address(api_wrapper$pet_api$api_client)
|
|
#cat(address(api_wrapper$api_client$api_client)
|
|
|
|
print("DONE")
|
|
|
|
var_pet <- Pet$new("name_example", list("photoUrls_example"), 56, Category$new(56, "name_example"), list(Tag$new(56, "name_example")), "available") # Pet | Pet object that needs to be added to the store
|
|
print(var_pet)
|
|
|
|
print("DONE print")
|
|
#Add a new pet to the store
|
|
api_instance <- PetApi$new()
|
|
# Configure OAuth2 access token for authorization: petstore_auth
|
|
api_instance$api_client$access_token <- 'TODO_YOUR_ACCESS_TOKEN';
|
|
result <- tryCatch(
|
|
# to save the result into a file, simply add the optional `data_file` parameter, e.g.
|
|
# api_instance$AddPet(var_pet, data_file = "result.txt"),
|
|
api_instance$add_pet(var_pet),
|
|
ApiException = function(ex) ex
|
|
)
|
|
|
|
var_pet_id <- 56 # integer | ID of pet to return
|
|
|
|
pet_response <- api_instance$get_pet_by_id(var_pet_id, data_file = "get_pet_by_id.json")
|
|
response <- read_json("get_pet_by_id.json")
|
|
dput(response)
|
|
#
|
|
## test streaming
|
|
#api_instance$get_pet_by_id_streaming(var_pet_id, stream_callback = function(x) { print(x) })
|
|
|
|
##Find pet by ID (streaming)
|
|
#api_instance <- PetApi$new()
|
|
## Configure API key authorization: api_key
|
|
#api_instance$api_client$api_keys['api_key'] <- 'TODO_YOUR_API_KEY';
|
|
#result <- tryCatch(
|
|
# # to save the result into a file, simply add the optional `data_file` parameter, e.g.
|
|
# # api_instance$GetPetByIdStreaming(var_pet_id, data_file = "result.txt"),
|
|
# api_instance$GetPetByIdStreaming(var_pet_id, stream_callback = function(x) { print(x) }),
|
|
# ApiException = function(ex) ex
|
|
# )
|
|
# In case of error, print the error object
|
|
#if (!is.null(result$ApiException)) {
|
|
# cat(result$ApiException$toString())
|
|
#} #else {
|
|
# # deserialized response object
|
|
# response.object <- result$content
|
|
# # response headers
|
|
# response.headers <- result$response$headers
|
|
# # response status code
|
|
# response.status.code <- result$response$status_code
|
|
#}
|
|
|
|
##errorMsg <- "{\"code\":1,\"type\":\"error\",\"message\":\"Pet not found\"}"
|
|
###errorMsg <- '{"code": 404, "message": "Not found"}'
|
|
##a <- ModelApiResponse$new()$fromJSONString(errorMsg)
|
|
##dput(a)
|
|
##
|
|
##var_pet_id <- 1231256 # integer | ID of pet to return
|
|
##
|
|
###Find pet by ID
|
|
##api_instance <- PetApi$new()
|
|
### Configure API key authorization: api_key
|
|
##api_instance$api_client$api_keys['api_key'] <- 'TODO_YOUR_API_KEY';
|
|
##result <- tryCatch(
|
|
## api_instance$GetPetById(var_pet_id),
|
|
## ApiException = function(ex) ex
|
|
## )
|
|
### In case of error, print the error object
|
|
##if(!is.null(result$ApiException)) {
|
|
## cat(result$ApiException$toString())
|
|
##} else {
|
|
## # deserialized response object
|
|
## response.object <- result$content
|
|
## # response headers
|
|
## response.headers <- result$response$headers
|
|
## # response status code
|
|
## response.status.code <- result$response$status_code
|
|
##}
|
|
#
|
|
#json2 <-
|
|
#'{"name": "pet", "photoUrls" : ["http://a.com", "http://b.com"]}'
|
|
#
|
|
#jsonlite::minify(json2)
|
|
#
|
|
#pet_api <- PetApi$new()
|
|
#pet_id <- 123321
|
|
#pet <- Pet$new("name_test",
|
|
# photoUrls = list("photo_test", "second test"),
|
|
# category = Category$new(id = 450, name = "test_cat"),
|
|
# id = pet_id,
|
|
# tags = list(
|
|
# Tag$new(id = 123, name = "tag_test"), Tag$new(id = 456, name = "unknown")
|
|
# ),
|
|
# status = "available"
|
|
#)
|
|
#
|
|
##jsonlite::minify(pet$toJSONString())
|
|
##cat(pet$toJSONString())
|
|
#toString(pet$toString())
|
|
#
|
|
##json <-
|
|
##'[
|
|
## {"Name" : "Mario", "Age" : 32, "Occupation" : "Plumber"},
|
|
## {"Name" : "Peach", "Age" : 21, "Occupation" : "Princess"},
|
|
## {},
|
|
## {"Name" : "Bowser", "Occupation" : "Koopa"}
|
|
##]'
|
|
##
|
|
##
|
|
###Pet$public_methods
|
|
###Pet$public_methods$fromJSON(json)
|
|
###Pet$public_methods$toJson()
|
|
###Pet$public_methods$validateJSON(json2)
|
|
###Pet$public_methods$validateJson(json)
|
|
###Pet$my_static_method <- function(x) { x + 2}
|
|
###Pet$public_methods$my_static_method(1)
|
|
##
|
|
# basque_pig_json <-
|
|
# '{"className2": "BasquePig", "color": "red"}'
|
|
##
|
|
## danish_pig_json <-
|
|
## '{"className2": "DanishPig", "size": 7}'
|
|
##
|
|
## wrong_json <-
|
|
## '[
|
|
## {"Name" : "Tom", "Age" : 32, "Occupation" : "Consultant"},
|
|
## {},
|
|
## {"Name" : "Ada", "Occupation" : "Engineer"}
|
|
## ]'
|
|
##
|
|
## print("==========")
|
|
# pig <- Pig$new()
|
|
# basque_pig <- pig$fromJSON(basque_pig_json)
|
|
## #print(basque_pig$actual_instance$color)
|
|
## #expect_equal(basque_pig$actual_type, "BasquePig")
|
|
## pig$fromJSON(danish_pig_json)
|
|
## #pig$fromJSON(wrong_json)
|
|
## pig$toJSON()
|
|
##
|
|
## #d <- DanishPig$new()
|
|
## #dp <- d$validateJSON(danish_pig_json)
|
|
##
|
|
##
|
|
#
|
|
## test nested oneOf
|
|
#nested_oneof <- NestedOneOf$new()
|
|
#nested_oneof$nested_pig <- pig
|
|
#nested_oneof$size <- 15
|
|
#
|
|
#cat(nested_oneof$toJSONString())
|
|
#
|
|
|
|
|
|
|