wip

Author: mattpollock

samples/client/petstore/R-httr2-wrapper/R/api_client.R

@@ -46,7 +46,7 @@ ApiClient  <- R6::R6Class(
   "ApiClient",
   public = list(
     # base path of all requests
-    base_path = "http://petstore.swagger.io/v2",
+    base_path = "http://localhost/v2",
     # user agent in the HTTP request
     user_agent = "PetstoreAgent",
     # default headers in the HTTP request

samples/client/petstore/R-httr2-wrapper/R/nested_one_of.R

@@ -115,6 +115,7 @@ NestedOneOf <- R6::R6Class(
     #' @param ... Parameters passed to `jsonlite::toJSON`
     #' @return NestedOneOf in JSON format
     toJSONString = function(minify = TRUE, ...) {
+      browser()
       json_obj <- self$toList()
 
       for (key in names(self$additional_properties)) {