forked from loafle/openapi-generator-original
147 lines
4.5 KiB
R
147 lines
4.5 KiB
R
|
|
install.packages("petstore_1.0.0.tar.gz",repos=NULL, type="source")
|
|
library(petstore)
|
|
|
|
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
|
|
|
|
#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';
|
|
api_instance$api_client$username <- 'username';
|
|
api_instance$api_client$password <- 'password';
|
|
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$AddPet(var_pet),
|
|
ApiException = function(ex) ex
|
|
)
|
|
|
|
var_pet_id <- 56 # integer | ID of pet to return
|
|
|
|
result <- api_instance$FindPetsByStatus("available")
|
|
dput(result)
|
|
##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)
|
|
##
|
|
|
|
## Test exceptions
|
|
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())
|
|
#
|