api_file <- system.file(
"extdata", "sample_specs", "petstore.yaml",
package = "rapiclient", mustWork = TRUE
)
api <- get_api(api_file)
operations <- get_operations(api, handle_response = content_or_stop)
Run the code above in your browser using DataLab