R - better code format (#13691)

* r - beter code format

* better readme

* update instruction

modules/openapi-generator/src/main/resources/r/README.mustache

@@ -63,6 +63,17 @@ install.packages("{{{packageName}}}_{{{packageVersion}}}.tar.gz", repos = NULL,
 library({{{packageName}}})
 ```
 
+### Reformat code
+
+To reformat code using [styler](https://styler.r-lib.org/index.html), please run the following in the R console:
+
+```R
+install.packages("remotes")
+remotes::install_github("r-lib/styler@v1.7.0.9003")
+library("styler")
+style_dir()
+```
+
 ## Documentation for API Endpoints
 
 All URIs are relative to *{{basePath}}*

modules/openapi-generator/src/main/resources/r/modelGeneric.mustache

@@ -50,9 +50,7 @@
     {{/isAdditionalPropertiesTrue}}
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function({{#requiredVars}}`{{name}}`, {{/requiredVars}}{{#optionalVars}}`{{name}}` = {{{defaultValue}}}{{^defaultValue}}NULL{{/defaultValue}}, {{/optionalVars}}{{#isAdditionalPropertiesTrue}}additional_properties = NULL, {{/isAdditionalPropertiesTrue}}...) {
-        {{#requiredVars}}`{{name}}`, {{/requiredVars}}{{#optionalVars}}`{{name}}` = {{{defaultValue}}}{{^defaultValue}}NULL{{/defaultValue}}, {{/optionalVars}}{{#isAdditionalPropertiesTrue}}additional_properties = NULL, {{/isAdditionalPropertiesTrue}}...
-    ) {
       {{#requiredVars}}
       if (!missing(`{{name}}`)) {
         {{^isContainer}}
@@ -619,7 +617,8 @@
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -40,9 +40,7 @@ AllofTagApiResponse <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -270,7 +268,8 @@ AllofTagApiResponse <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -33,9 +33,7 @@ Animal <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", additional_properties = NULL, ...) {
-        `className`, `color` = "red", additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -219,7 +217,8 @@ Animal <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -31,9 +31,7 @@ BasquePig <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color`, additional_properties = NULL, ...) {
-        `className`, `color`, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -233,7 +231,8 @@ BasquePig <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -35,9 +35,7 @@ Cat <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", `declawed` = NULL, additional_properties = NULL, ...) {
-        `className`, `color` = "red", `declawed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -241,7 +239,8 @@ Cat <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -28,9 +28,7 @@ CatAllOf <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`declawed` = NULL, additional_properties = NULL, ...) {
-        `declawed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`declawed`)) {
         stopifnot(is.logical(`declawed`), length(`declawed`) == 1)
         self$`declawed` <- `declawed`
@@ -178,7 +176,8 @@ CatAllOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -31,9 +31,7 @@ Category <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `name` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -209,7 +207,8 @@ Category <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -31,9 +31,7 @@ DanishPig <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `size`, additional_properties = NULL, ...) {
-        `className`, `size`, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -233,7 +231,8 @@ DanishPig <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -34,9 +34,7 @@ Date <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `url_property`, `percent_description` = NULL, additional_properties = NULL, ...) {
-        `className`, `url_property`, `percent_description` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -272,7 +270,8 @@ Date <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -35,9 +35,7 @@ Dog <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", `breed` = NULL, additional_properties = NULL, ...) {
-        `className`, `color` = "red", `breed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -241,7 +239,8 @@ Dog <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -28,9 +28,7 @@ DogAllOf <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`breed` = NULL, additional_properties = NULL, ...) {
-        `breed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`breed`)) {
         stopifnot(is.character(`breed`), length(`breed`) == 1)
         self$`breed` <- `breed`
@@ -178,7 +176,8 @@ DogAllOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -34,9 +34,7 @@ ModelApiResponse <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...) {
-        `code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`code`)) {
         stopifnot(is.numeric(`code`), length(`code`) == 1)
         self$`code` <- `code`
@@ -224,7 +222,8 @@ ModelApiResponse <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -31,9 +31,7 @@ NestedOneOf <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`size` = NULL, `nested_pig` = NULL, additional_properties = NULL, ...) {
-        `size` = NULL, `nested_pig` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`size`)) {
         stopifnot(is.numeric(`size`), length(`size`) == 1)
         self$`size` <- `size`
@@ -203,7 +201,8 @@ NestedOneOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -43,9 +43,7 @@ Order <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `petId` = NULL, `quantity` = NULL, `shipDate` = NULL, `status` = NULL, `complete` = FALSE, additional_properties = NULL, ...) {
-        `id` = NULL, `petId` = NULL, `quantity` = NULL, `shipDate` = NULL, `status` = NULL, `complete` = FALSE, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -302,7 +300,8 @@ Order <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -43,9 +43,7 @@ Pet <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`name`, `photoUrls`, `id` = NULL, `category` = NULL, `tags` = NULL, `status` = NULL, additional_properties = NULL, ...) {
-        `name`, `photoUrls`, `id` = NULL, `category` = NULL, `tags` = NULL, `status` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`name`)) {
         stopifnot(is.character(`name`), length(`name`) == 1)
         self$`name` <- `name`
@@ -339,7 +337,8 @@ Pet <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -46,9 +46,7 @@ Special <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`set_test` = NULL, `item_self` = NULL, `item_private` = NULL, `item_super` = NULL, `123_number` = NULL, `array[test]` = NULL, `empty_string` = NULL, additional_properties = NULL, ...) {
-        `set_test` = NULL, `item_self` = NULL, `item_private` = NULL, `item_super` = NULL, `123_number` = NULL, `array[test]` = NULL, `empty_string` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`set_test`)) {
         stopifnot(is.vector(`set_test`), length(`set_test`) != 0)
         sapply(`set_test`, function(x) stopifnot(is.character(x)))
@@ -328,7 +326,8 @@ Special <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -31,9 +31,7 @@ Tag <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `name` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -201,7 +199,8 @@ Tag <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -31,9 +31,7 @@ UpdatePetRequest <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`jsonData` = NULL, `binaryDataN2Information` = NULL, additional_properties = NULL, ...) {
-        `jsonData` = NULL, `binaryDataN2Information` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`jsonData`)) {
         stopifnot(R6::is.R6(`jsonData`))
         self$`jsonData` <- `jsonData`
@@ -202,7 +200,8 @@ UpdatePetRequest <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -49,9 +49,7 @@ User <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `username` = NULL, `firstName` = NULL, `lastName` = NULL, `email` = NULL, `password` = NULL, `phone` = NULL, `userStatus` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `username` = NULL, `firstName` = NULL, `lastName` = NULL, `email` = NULL, `password` = NULL, `phone` = NULL, `userStatus` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -339,7 +337,8 @@ User <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -34,9 +34,7 @@ Whale <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `hasBaleen` = NULL, `hasTeeth` = NULL, additional_properties = NULL, ...) {
-        `className`, `hasBaleen` = NULL, `hasTeeth` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -240,7 +238,8 @@ Whale <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -31,9 +31,7 @@ Zebra <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `type` = NULL, additional_properties = NULL, ...) {
-        `className`, `type` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -226,7 +224,8 @@ Zebra <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2-wrapper/README.md

@@ -55,6 +55,17 @@ install.packages("petstore_1.0.0.tar.gz", repos = NULL, type = "source")
 library(petstore)
 ```
 
+### Reformat code
+
+To reformat code using [styler](https://styler.r-lib.org/index.html), please run the following in the R console:
+
+```R
+install.packages("remotes")
+remotes::install_github("r-lib/styler@v1.7.0.9003")
+library("styler")
+style_dir()
+```
+
 ## Documentation for API Endpoints
 
 All URIs are relative to *http://petstore.swagger.io/v2*

samples/client/petstore/R-httr2/R/allof_tag_api_response.R

@@ -35,9 +35,7 @@ AllofTagApiResponse <- R6::R6Class(
     #' @param message message
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, ...) {
-        `id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -237,7 +235,8 @@ AllofTagApiResponse <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/animal.R

@@ -28,9 +28,7 @@ Animal <- R6::R6Class(
     #' @param color color. Default to "red".
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", ...) {
-        `className`, `color` = "red", ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -186,7 +184,8 @@ Animal <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/basque_pig.R

@@ -26,9 +26,7 @@ BasquePig <- R6::R6Class(
     #' @param color color
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color`, ...) {
-        `className`, `color`, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -200,7 +198,8 @@ BasquePig <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/cat.R

@@ -30,9 +30,7 @@ Cat <- R6::R6Class(
     #' @param declawed declawed
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", `declawed` = NULL, ...) {
-        `className`, `color` = "red", `declawed` = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -208,7 +206,8 @@ Cat <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/cat_all_of.R

@@ -23,9 +23,7 @@ CatAllOf <- R6::R6Class(
     #' @param declawed declawed
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`declawed` = NULL, ...) {
-        `declawed` = NULL, ...
-    ) {
       if (!is.null(`declawed`)) {
         stopifnot(is.logical(`declawed`), length(`declawed`) == 1)
         self$`declawed` <- `declawed`
@@ -145,7 +143,8 @@ CatAllOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/category.R

@@ -26,9 +26,7 @@ Category <- R6::R6Class(
     #' @param name name
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, ...) {
-        `id` = NULL, `name` = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -176,7 +174,8 @@ Category <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/danish_pig.R

@@ -26,9 +26,7 @@ DanishPig <- R6::R6Class(
     #' @param size size
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `size`, ...) {
-        `className`, `size`, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -200,7 +198,8 @@ DanishPig <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/date.R

@@ -29,9 +29,7 @@ Date <- R6::R6Class(
     #' @param percent_description using \% in the description
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `url_property`, `percent_description` = NULL, ...) {
-        `className`, `url_property`, `percent_description` = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -239,7 +237,8 @@ Date <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/dog.R

@@ -30,9 +30,7 @@ Dog <- R6::R6Class(
     #' @param breed breed
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", `breed` = NULL, ...) {
-        `className`, `color` = "red", `breed` = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -208,7 +206,8 @@ Dog <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/dog_all_of.R

@@ -23,9 +23,7 @@ DogAllOf <- R6::R6Class(
     #' @param breed breed
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`breed` = NULL, ...) {
-        `breed` = NULL, ...
-    ) {
       if (!is.null(`breed`)) {
         stopifnot(is.character(`breed`), length(`breed`) == 1)
         self$`breed` <- `breed`
@@ -145,7 +143,8 @@ DogAllOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/model_api_response.R

@@ -29,9 +29,7 @@ ModelApiResponse <- R6::R6Class(
     #' @param message message
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`code` = NULL, `type` = NULL, `message` = NULL, ...) {
-        `code` = NULL, `type` = NULL, `message` = NULL, ...
-    ) {
       if (!is.null(`code`)) {
         stopifnot(is.numeric(`code`), length(`code`) == 1)
         self$`code` <- `code`
@@ -191,7 +189,8 @@ ModelApiResponse <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

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

@@ -26,9 +26,7 @@ NestedOneOf <- R6::R6Class(
     #' @param nested_pig nested_pig
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`size` = NULL, `nested_pig` = NULL, ...) {
-        `size` = NULL, `nested_pig` = NULL, ...
-    ) {
       if (!is.null(`size`)) {
         stopifnot(is.numeric(`size`), length(`size`) == 1)
         self$`size` <- `size`
@@ -170,7 +168,8 @@ NestedOneOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/order.R

@@ -38,9 +38,7 @@ Order <- R6::R6Class(
     #' @param complete complete. Default to FALSE.
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `petId` = NULL, `quantity` = NULL, `shipDate` = NULL, `status` = NULL, `complete` = FALSE, ...) {
-        `id` = NULL, `petId` = NULL, `quantity` = NULL, `shipDate` = NULL, `status` = NULL, `complete` = FALSE, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -269,7 +267,8 @@ Order <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/pet.R

@@ -38,9 +38,7 @@ Pet <- R6::R6Class(
     #' @param status pet status in the store
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`name`, `photoUrls`, `id` = NULL, `category` = NULL, `tags` = NULL, `status` = NULL, ...) {
-        `name`, `photoUrls`, `id` = NULL, `category` = NULL, `tags` = NULL, `status` = NULL, ...
-    ) {
       if (!missing(`name`)) {
         stopifnot(is.character(`name`), length(`name`) == 1)
         self$`name` <- `name`
@@ -306,7 +304,8 @@ Pet <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/special.R

@@ -41,9 +41,7 @@ Special <- R6::R6Class(
     #' @param empty_string empty_string
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`set_test` = NULL, `item_self` = NULL, `item_private` = NULL, `item_super` = NULL, `123_number` = NULL, `array[test]` = NULL, `empty_string` = NULL, ...) {
-        `set_test` = NULL, `item_self` = NULL, `item_private` = NULL, `item_super` = NULL, `123_number` = NULL, `array[test]` = NULL, `empty_string` = NULL, ...
-    ) {
       if (!is.null(`set_test`)) {
         stopifnot(is.vector(`set_test`), length(`set_test`) != 0)
         sapply(`set_test`, function(x) stopifnot(is.character(x)))
@@ -295,7 +293,8 @@ Special <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/tag.R

@@ -26,9 +26,7 @@ Tag <- R6::R6Class(
     #' @param name name
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, ...) {
-        `id` = NULL, `name` = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -168,7 +166,8 @@ Tag <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/update_pet_request.R

@@ -26,9 +26,7 @@ UpdatePetRequest <- R6::R6Class(
     #' @param binaryDataN2Information binaryDataN2Information
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`jsonData` = NULL, `binaryDataN2Information` = NULL, ...) {
-        `jsonData` = NULL, `binaryDataN2Information` = NULL, ...
-    ) {
       if (!is.null(`jsonData`)) {
         stopifnot(R6::is.R6(`jsonData`))
         self$`jsonData` <- `jsonData`
@@ -169,7 +167,8 @@ UpdatePetRequest <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/user.R

@@ -44,9 +44,7 @@ User <- R6::R6Class(
     #' @param userStatus User Status
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `username` = NULL, `firstName` = NULL, `lastName` = NULL, `email` = NULL, `password` = NULL, `phone` = NULL, `userStatus` = NULL, ...) {
-        `id` = NULL, `username` = NULL, `firstName` = NULL, `lastName` = NULL, `email` = NULL, `password` = NULL, `phone` = NULL, `userStatus` = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -306,7 +304,8 @@ User <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/whale.R

@@ -29,9 +29,7 @@ Whale <- R6::R6Class(
     #' @param hasTeeth hasTeeth
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `hasBaleen` = NULL, `hasTeeth` = NULL, ...) {
-        `className`, `hasBaleen` = NULL, `hasTeeth` = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -207,7 +205,8 @@ Whale <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/R/zebra.R

@@ -26,9 +26,7 @@ Zebra <- R6::R6Class(
     #' @param type type
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `type` = NULL, ...) {
-        `className`, `type` = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -193,7 +191,8 @@ Zebra <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R-httr2/README.md

@@ -55,6 +55,17 @@ install.packages("petstore_1.0.0.tar.gz", repos = NULL, type = "source")
 library(petstore)
 ```
 
+### Reformat code
+
+To reformat code using [styler](https://styler.r-lib.org/index.html), please run the following in the R console:
+
+```R
+install.packages("remotes")
+remotes::install_github("r-lib/styler@v1.7.0.9003")
+library("styler")
+style_dir()
+```
+
 ## Documentation for API Endpoints
 
 All URIs are relative to *http://petstore.swagger.io/v2*

samples/client/petstore/R/R/allof_tag_api_response.R

@@ -40,9 +40,7 @@ AllofTagApiResponse <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -270,7 +268,8 @@ AllofTagApiResponse <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/animal.R

@@ -33,9 +33,7 @@ Animal <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", additional_properties = NULL, ...) {
-        `className`, `color` = "red", additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -219,7 +217,8 @@ Animal <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/basque_pig.R

@@ -31,9 +31,7 @@ BasquePig <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color`, additional_properties = NULL, ...) {
-        `className`, `color`, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -233,7 +231,8 @@ BasquePig <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/cat.R

@@ -35,9 +35,7 @@ Cat <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", `declawed` = NULL, additional_properties = NULL, ...) {
-        `className`, `color` = "red", `declawed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -241,7 +239,8 @@ Cat <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/cat_all_of.R

@@ -28,9 +28,7 @@ CatAllOf <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`declawed` = NULL, additional_properties = NULL, ...) {
-        `declawed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`declawed`)) {
         stopifnot(is.logical(`declawed`), length(`declawed`) == 1)
         self$`declawed` <- `declawed`
@@ -178,7 +176,8 @@ CatAllOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/category.R

@@ -31,9 +31,7 @@ Category <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `name` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -209,7 +207,8 @@ Category <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/danish_pig.R

@@ -31,9 +31,7 @@ DanishPig <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `size`, additional_properties = NULL, ...) {
-        `className`, `size`, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -233,7 +231,8 @@ DanishPig <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/date.R

@@ -34,9 +34,7 @@ Date <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `url_property`, `percent_description` = NULL, additional_properties = NULL, ...) {
-        `className`, `url_property`, `percent_description` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -272,7 +270,8 @@ Date <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/dog.R

@@ -35,9 +35,7 @@ Dog <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `color` = "red", `breed` = NULL, additional_properties = NULL, ...) {
-        `className`, `color` = "red", `breed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -241,7 +239,8 @@ Dog <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/dog_all_of.R

@@ -28,9 +28,7 @@ DogAllOf <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`breed` = NULL, additional_properties = NULL, ...) {
-        `breed` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`breed`)) {
         stopifnot(is.character(`breed`), length(`breed`) == 1)
         self$`breed` <- `breed`
@@ -178,7 +176,8 @@ DogAllOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/model_api_response.R

@@ -34,9 +34,7 @@ ModelApiResponse <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...) {
-        `code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`code`)) {
         stopifnot(is.numeric(`code`), length(`code`) == 1)
         self$`code` <- `code`
@@ -224,7 +222,8 @@ ModelApiResponse <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/nested_one_of.R

@@ -31,9 +31,7 @@ NestedOneOf <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`size` = NULL, `nested_pig` = NULL, additional_properties = NULL, ...) {
-        `size` = NULL, `nested_pig` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`size`)) {
         stopifnot(is.numeric(`size`), length(`size`) == 1)
         self$`size` <- `size`
@@ -203,7 +201,8 @@ NestedOneOf <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/order.R

@@ -43,9 +43,7 @@ Order <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `petId` = NULL, `quantity` = NULL, `shipDate` = NULL, `status` = NULL, `complete` = FALSE, additional_properties = NULL, ...) {
-        `id` = NULL, `petId` = NULL, `quantity` = NULL, `shipDate` = NULL, `status` = NULL, `complete` = FALSE, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -302,7 +300,8 @@ Order <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/pet.R

@@ -43,9 +43,7 @@ Pet <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`name`, `photoUrls`, `id` = NULL, `category` = NULL, `tags` = NULL, `status` = NULL, additional_properties = NULL, ...) {
-        `name`, `photoUrls`, `id` = NULL, `category` = NULL, `tags` = NULL, `status` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`name`)) {
         stopifnot(is.character(`name`), length(`name`) == 1)
         self$`name` <- `name`
@@ -339,7 +337,8 @@ Pet <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/special.R

@@ -46,9 +46,7 @@ Special <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`set_test` = NULL, `item_self` = NULL, `item_private` = NULL, `item_super` = NULL, `123_number` = NULL, `array[test]` = NULL, `empty_string` = NULL, additional_properties = NULL, ...) {
-        `set_test` = NULL, `item_self` = NULL, `item_private` = NULL, `item_super` = NULL, `123_number` = NULL, `array[test]` = NULL, `empty_string` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`set_test`)) {
         stopifnot(is.vector(`set_test`), length(`set_test`) != 0)
         sapply(`set_test`, function(x) stopifnot(is.character(x)))
@@ -328,7 +326,8 @@ Special <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/tag.R

@@ -31,9 +31,7 @@ Tag <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `name` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `name` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -201,7 +199,8 @@ Tag <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/update_pet_request.R

@@ -31,9 +31,7 @@ UpdatePetRequest <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`jsonData` = NULL, `binaryDataN2Information` = NULL, additional_properties = NULL, ...) {
-        `jsonData` = NULL, `binaryDataN2Information` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`jsonData`)) {
         stopifnot(R6::is.R6(`jsonData`))
         self$`jsonData` <- `jsonData`
@@ -202,7 +200,8 @@ UpdatePetRequest <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/user.R

@@ -49,9 +49,7 @@ User <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`id` = NULL, `username` = NULL, `firstName` = NULL, `lastName` = NULL, `email` = NULL, `password` = NULL, `phone` = NULL, `userStatus` = NULL, additional_properties = NULL, ...) {
-        `id` = NULL, `username` = NULL, `firstName` = NULL, `lastName` = NULL, `email` = NULL, `password` = NULL, `phone` = NULL, `userStatus` = NULL, additional_properties = NULL, ...
-    ) {
       if (!is.null(`id`)) {
         stopifnot(is.numeric(`id`), length(`id`) == 1)
         self$`id` <- `id`
@@ -339,7 +337,8 @@ User <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/whale.R

@@ -34,9 +34,7 @@ Whale <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `hasBaleen` = NULL, `hasTeeth` = NULL, additional_properties = NULL, ...) {
-        `className`, `hasBaleen` = NULL, `hasTeeth` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -240,7 +238,8 @@ Whale <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/R/zebra.R

@@ -31,9 +31,7 @@ Zebra <- R6::R6Class(
     #' @param additional_properties additonal properties (optional)
     #' @param ... Other optional arguments.
     #' @export
-    initialize = function(
+    initialize = function(`className`, `type` = NULL, additional_properties = NULL, ...) {
-        `className`, `type` = NULL, additional_properties = NULL, ...
-    ) {
       if (!missing(`className`)) {
         stopifnot(is.character(`className`), length(`className`) == 1)
         self$`className` <- `className`
@@ -226,7 +224,8 @@ Zebra <- R6::R6Class(
     print = function() {
       print(jsonlite::prettify(self$toJSONString()))
       invisible(self)
-    }),
+    }
+  ),
   # Lock the class to prevent modifications to the method or field
   lock_class = TRUE
 )

samples/client/petstore/R/README.md

@@ -55,6 +55,17 @@ install.packages("petstore_1.0.0.tar.gz", repos = NULL, type = "source")
 library(petstore)
 ```
 
+### Reformat code
+
+To reformat code using [styler](https://styler.r-lib.org/index.html), please run the following in the R console:
+
+```R
+install.packages("remotes")
+remotes::install_github("r-lib/styler@v1.7.0.9003")
+library("styler")
+style_dir()
+```
+
 ## Documentation for API Endpoints
 
 All URIs are relative to *http://petstore.swagger.io/v2*