if (FALSE) {
# Read API description
api <- get_api(api_url)
# create operation and schema functions
operations <- get_operations(api)
schemas <- get_schemas(api)
# call service
operations$some_operation(x, y, schemas$some_structure(u, v, ...))
}
Run the code above in your browser using DataLab