regenerate samples

Author: ctreatma

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

@@ -12,8 +12,6 @@
 #' @field code  integer [optional]
 #' @field type  character [optional]
 #' @field message  character [optional]
-#' @field _field_list a list of fields list(character)
-#' @field additional_properties additional properties list(character) [optional]
 #' @importFrom R6 R6Class
 #' @importFrom jsonlite fromJSON toJSON
 #' @export
@@ -25,8 +23,6 @@ AllofTagApiResponse <- R6::R6Class(
     `code` = NULL,
     `type` = NULL,
     `message` = NULL,
-    `_field_list` = c("id", "name", "code", "type", "message"),
-    `additional_properties` = list(),
 
     #' @description
     #' Initialize a new AllofTagApiResponse class.
@@ -36,9 +32,8 @@ AllofTagApiResponse <- R6::R6Class(
     #' @param code code
     #' @param type type
     #' @param message message
-    #' @param additional_properties additional properties (optional)
     #' @param ... Other optional arguments.
-    initialize = function(`id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, additional_properties = NULL, ...) {
+    initialize = function(`id` = NULL, `name` = NULL, `code` = NULL, `type` = NULL, `message` = NULL, ...) {
       if (!is.null(`id`)) {
         if (!(is.numeric(`id`) && length(`id`) == 1)) {
           stop(paste("Error! Invalid data for `id`. Must be an integer:", `id`))
@@ -69,11 +64,6 @@ AllofTagApiResponse <- R6::R6Class(
         }
         self$`message` <- `message`
       }
-      if (!is.null(additional_properties)) {
-        for (key in names(additional_properties)) {
-          self$additional_properties[[key]] <- additional_properties[[key]]
-        }
-      }
     },
 
     #' @description
@@ -127,10 +117,6 @@ AllofTagApiResponse <- R6::R6Class(
         AllofTagApiResponseObject[["message"]] <-
           self$`message`
       }
-      for (key in names(self$additional_properties)) {
-        AllofTagApiResponseObject[[key]] <- self$additional_properties[[key]]
-      }
-
       return(AllofTagApiResponseObject)
     },
 
@@ -156,13 +142,6 @@ AllofTagApiResponse <- R6::R6Class(
       if (!is.null(this_object$`message`)) {
         self$`message` <- this_object$`message`
       }
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },
 
@@ -173,9 +152,6 @@ AllofTagApiResponse <- R6::R6Class(
     #' @return AllofTagApiResponse in JSON format
     toJSONString = function(...) {
       simple <- self$toSimpleType()
-      for (key in names(self$additional_properties)) {
-        simple[[key]] <- self$additional_properties[[key]]
-      }
       json <- jsonlite::toJSON(simple, auto_unbox = TRUE, digits = NA, ...)
       return(as.character(jsonlite::minify(json)))
     },
@@ -192,13 +168,6 @@ AllofTagApiResponse <- R6::R6Class(
       self$`code` <- this_object$`code`
       self$`type` <- this_object$`type`
       self$`message` <- this_object$`message`
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },
 

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

@@ -9,8 +9,6 @@
 #' @format An \code{R6Class} generator object
 #' @field className  character
 #' @field color  character [optional]
-#' @field _field_list a list of fields list(character)
-#' @field additional_properties additional properties list(character) [optional]
 #' @importFrom R6 R6Class
 #' @importFrom jsonlite fromJSON toJSON
 #' @export
@@ -19,8 +17,6 @@ Animal <- R6::R6Class(
   public = list(
     `className` = NULL,
     `color` = NULL,
-    `_field_list` = c("className", "color"),
-    `additional_properties` = list(),
     `_discriminator_property_name` = 'className',
     `_discriminator_mapping_name` = c('Cat' = 'Cat', 'Dog' = 'Dog'),
 
@@ -29,9 +25,8 @@ Animal <- R6::R6Class(
     #'
     #' @param className className
     #' @param color color. Default to "red".
-    #' @param additional_properties additional properties (optional)
     #' @param ... Other optional arguments.
-    initialize = function(`className`, `color` = "red", additional_properties = NULL, ...) {
+    initialize = function(`className`, `color` = "red", ...) {
       if (!missing(`className`)) {
         if (!(is.character(`className`) && length(`className`) == 1)) {
           stop(paste("Error! Invalid data for `className`. Must be a string:", `className`))
@@ -44,11 +39,6 @@ Animal <- R6::R6Class(
         }
         self$`color` <- `color`
       }
-      if (!is.null(additional_properties)) {
-        for (key in names(additional_properties)) {
-          self$additional_properties[[key]] <- additional_properties[[key]]
-        }
-      }
     },
 
     #' @description
@@ -90,10 +80,6 @@ Animal <- R6::R6Class(
         AnimalObject[["color"]] <-
           self$`color`
       }
-      for (key in names(self$additional_properties)) {
-        AnimalObject[[key]] <- self$additional_properties[[key]]
-      }
-
       return(AnimalObject)
     },
 
@@ -110,13 +96,6 @@ Animal <- R6::R6Class(
       if (!is.null(this_object$`color`)) {
         self$`color` <- this_object$`color`
       }
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },
 
@@ -127,9 +106,6 @@ Animal <- R6::R6Class(
     #' @return Animal in JSON format
     toJSONString = function(...) {
       simple <- self$toSimpleType()
-      for (key in names(self$additional_properties)) {
-        simple[[key]] <- self$additional_properties[[key]]
-      }
       json <- jsonlite::toJSON(simple, auto_unbox = TRUE, digits = NA, ...)
       return(as.character(jsonlite::minify(json)))
     },
@@ -143,13 +119,6 @@ Animal <- R6::R6Class(
       this_object <- jsonlite::fromJSON(input_json)
       self$`className` <- this_object$`className`
       self$`color` <- this_object$`color`
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },
 

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

@@ -9,8 +9,6 @@
 #' @format An \code{R6Class} generator object
 #' @field className  character
 #' @field color  character
-#' @field _field_list a list of fields list(character)
-#' @field additional_properties additional properties list(character) [optional]
 #' @importFrom R6 R6Class
 #' @importFrom jsonlite fromJSON toJSON
 #' @export
@@ -19,17 +17,14 @@ BasquePig <- R6::R6Class(
   public = list(
     `className` = NULL,
     `color` = NULL,
-    `_field_list` = c("className", "color"),
-    `additional_properties` = list(),
 
     #' @description
     #' Initialize a new BasquePig class.
     #'
     #' @param className className
     #' @param color color
-    #' @param additional_properties additional properties (optional)
     #' @param ... Other optional arguments.
-    initialize = function(`className`, `color`, additional_properties = NULL, ...) {
+    initialize = function(`className`, `color`, ...) {
       if (!missing(`className`)) {
         if (!(is.character(`className`) && length(`className`) == 1)) {
           stop(paste("Error! Invalid data for `className`. Must be a string:", `className`))
@@ -42,11 +37,6 @@ BasquePig <- R6::R6Class(
         }
         self$`color` <- `color`
       }
-      if (!is.null(additional_properties)) {
-        for (key in names(additional_properties)) {
-          self$additional_properties[[key]] <- additional_properties[[key]]
-        }
-      }
     },
 
     #' @description
@@ -88,10 +78,6 @@ BasquePig <- R6::R6Class(
         BasquePigObject[["color"]] <-
           self$`color`
       }
-      for (key in names(self$additional_properties)) {
-        BasquePigObject[[key]] <- self$additional_properties[[key]]
-      }
-
       return(BasquePigObject)
     },
 
@@ -108,13 +94,6 @@ BasquePig <- R6::R6Class(
       if (!is.null(this_object$`color`)) {
         self$`color` <- this_object$`color`
       }
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },
 
@@ -125,9 +104,6 @@ BasquePig <- R6::R6Class(
     #' @return BasquePig in JSON format
     toJSONString = function(...) {
       simple <- self$toSimpleType()
-      for (key in names(self$additional_properties)) {
-        simple[[key]] <- self$additional_properties[[key]]
-      }
       json <- jsonlite::toJSON(simple, auto_unbox = TRUE, digits = NA, ...)
       return(as.character(jsonlite::minify(json)))
     },
@@ -141,13 +117,6 @@ BasquePig <- R6::R6Class(
       this_object <- jsonlite::fromJSON(input_json)
       self$`className` <- this_object$`className`
       self$`color` <- this_object$`color`
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },
 

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

@@ -10,8 +10,6 @@
 #' @field className  character
 #' @field color  character [optional]
 #' @field declawed  character [optional]
-#' @field _field_list a list of fields list(character)
-#' @field additional_properties additional properties list(character) [optional]
 #' @importFrom R6 R6Class
 #' @importFrom jsonlite fromJSON toJSON
 #' @export
@@ -22,18 +20,15 @@ Cat <- R6::R6Class(
     `className` = NULL,
     `color` = NULL,
     `declawed` = NULL,
-    `_field_list` = c("className", "color", "declawed"),
-    `additional_properties` = list(),
 
     #' @description
     #' Initialize a new Cat class.
     #'
     #' @param className className
     #' @param color color. Default to "red".
     #' @param declawed declawed
-    #' @param additional_properties additional properties (optional)
     #' @param ... Other optional arguments.
-    initialize = function(`className`, `color` = "red", `declawed` = NULL, additional_properties = NULL, ...) {
+    initialize = function(`className`, `color` = "red", `declawed` = NULL, ...) {
       if (!missing(`className`)) {
         if (!(is.character(`className`) && length(`className`) == 1)) {
           stop(paste("Error! Invalid data for `className`. Must be a string:", `className`))
@@ -52,11 +47,6 @@ Cat <- R6::R6Class(
         }
         self$`declawed` <- `declawed`
       }
-      if (!is.null(additional_properties)) {
-        for (key in names(additional_properties)) {
-          self$additional_properties[[key]] <- additional_properties[[key]]
-        }
-      }
     },
 
     #' @description
@@ -102,10 +92,6 @@ Cat <- R6::R6Class(
         CatObject[["declawed"]] <-
           self$`declawed`
       }
-      for (key in names(self$additional_properties)) {
-        CatObject[[key]] <- self$additional_properties[[key]]
-      }
-
       return(CatObject)
     },
 
@@ -125,13 +111,6 @@ Cat <- R6::R6Class(
       if (!is.null(this_object$`declawed`)) {
         self$`declawed` <- this_object$`declawed`
       }
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },
 
@@ -142,9 +121,6 @@ Cat <- R6::R6Class(
     #' @return Cat in JSON format
     toJSONString = function(...) {
       simple <- self$toSimpleType()
-      for (key in names(self$additional_properties)) {
-        simple[[key]] <- self$additional_properties[[key]]
-      }
       json <- jsonlite::toJSON(simple, auto_unbox = TRUE, digits = NA, ...)
       return(as.character(jsonlite::minify(json)))
     },
@@ -159,13 +135,6 @@ Cat <- R6::R6Class(
       self$`className` <- this_object$`className`
       self$`color` <- this_object$`color`
       self$`declawed` <- this_object$`declawed`
-      # process additional properties/fields in the payload
-      for (key in names(this_object)) {
-        if (!(key %in% self$`_field_list`)) { # json key not in list of fields
-          self$additional_properties[[key]] <- this_object[[key]]
-        }
-      }
-
       self
     },