[R] Add documentations to oneOf, anyOf

• Add documentations to oneOf, anyOf

PR checklist

• Read the contribution guidelines.
• Pull Request title clearly describes the work in the pull request and Pull Request description provides details about how to validate the work. Missing information here may result in delayed response from the community.
• Run the following to build the project and update samples:

  ./mvnw clean package 
  ./bin/generate-samples.sh
  ./bin/utils/export_docs_generators.sh

  Commit all changed files. This is important, as CI jobs will verify all generator outputs of your HEAD commit as it would merge with master. These must match the expectations made by your contribution. You may regenerate an individual generator by passing the relevant config(s) as an argument to the script, for example ./bin/generate-samples.sh bin/configs/java*. For Windows users, please run the script in Git BASH.
• File the PR against the correct branch: master (6.0.1) (patch release), 6.1.x (breaking changes with fallbacks), 7.0.x (breaking changes without fallbacks)
• If your PR is targeting a particular programming language, @mention the technical committee members, so they are more likely to review the pull request.

cc @Ramanth (2019/07) @saigiridhar21 (2019/07)

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

@@ -11,14 +11,31 @@
 {{classname}} <- R6::R6Class(
   '{{classname}}',
   public = list(
+    #' @field actual_instance the object stored in this instance.
     actual_instance = NULL,
+    #' @field actual_type the type of the object stored in this instance.
     actual_type = NULL,
+    #' @field any_of  a list of object types defined in the anyOf schema.
     any_of = list({{#anyOf}}"{{{.}}}"{{^-last}}, {{/-last}}{{/anyOf}}),
+    #' Initialize a new {{{classname}}}.
+    #'
+    #' @description
+    #' Initialize a new {{{classname}}}.
+    #'
+    #' @export
+    #' @md
     initialize = function(
-        {{#requiredVars}}`{{baseName}}`, {{/requiredVars}}{{#optionalVars}}`{{baseName}}`={{{defaultValue}}}{{^defaultValue}}NULL{{/defaultValue}}, {{/optionalVars}}...
     ) {
-      local_optional_var <- list(...)
     },
+    #' Deserialize JSON string into an instance of {{{classname}}}.
+    #'
+    #' @description
+    #' Deserialize JSON string into an instance of {{{classname}}}.
+    #'
+    #' @param input The input JSON.
+    #' @return An instance of {{{classname}}}.
+    #' @export
+    #' @md
     fromJSON = function(input) {
       error_messages <- list()
 
@@ -41,6 +58,14 @@
       # no match
       stop(paste("No match found when deserializing the payload into {{{classname}}} with anyOf schemas {{#anyOf}}{{{.}}}{{^-last}}, {{/-last}}{{/anyOf}}. Details: ", paste(error_messages, collapse = ', ')))
     },
+    #' Serialize {{{classname}}} to JSON string.
+    #'
+    #' @description
+    #' Serialize {{{classname}}} to JSON string.
+    #'
+    #' @return JSON string reprenation of the {{{classname}}}.
+    #' @export
+    #' @md
     toJSON = function() {
       if (!is.null(self$actual_instance)) {
         self$actual_instance$toJSONString()
@@ -48,6 +73,15 @@
         NULL
       }
     },
+    #' Validate the input JSON with respect to {{{classname}}}.
+    #'
+    #' @description
+    #' Validate the input JSON with respect to {{{classname}}} and
+    #' throw exception if invalid.
+    #'
+    #' @param input The input JSON.
+    #' @export
+    #' @md
     validateJSON = function(input) {
       # backup current values
       actual_instance_bak <- self$actual_instance

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

@@ -11,14 +11,30 @@
 {{classname}} <- R6::R6Class(
   '{{classname}}',
   public = list(
+    #' @field actual_instance the object stored in this instance.
     actual_instance = NULL,
+    #' @field actual_type the type of the object stored in this instance.
     actual_type = NULL,
+    #' @field one_of  a list of object types defined in the oneOf schema.
     one_of = list({{#oneOf}}"{{{.}}}"{{^-last}}, {{/-last}}{{/oneOf}}),
-    initialize = function(
-        {{#requiredVars}}`{{baseName}}`, {{/requiredVars}}{{#optionalVars}}`{{baseName}}`={{{defaultValue}}}{{^defaultValue}}NULL{{/defaultValue}}, {{/optionalVars}}...
-    ) {
-      local_optional_var <- list(...)
+    #' Initialize a new {{{classname}}}.
+    #'
+    #' @description
+    #' Initialize a new {{{classname}}}.
+    #'
+    #' @export
+    #' @md
+    initialize = function() {
     },
+    #' Deserialize JSON string into an instance of {{{classname}}}.
+    #'
+    #' @description
+    #' Deserialize JSON string into an instance of {{{classname}}}.
+    #'
+    #' @param input The input JSON.
+    #' @return An instance of {{{classname}}}.
+    #' @export
+    #' @md
     fromJSON = function(input) {
       matched <- 0 # match counter
       matched_schemas <- list() #names of matched schemas
@@ -56,6 +72,14 @@
 
       self
     },
+    #' Serialize {{{classname}}} to JSON string.
+    #'
+    #' @description
+    #' Serialize {{{classname}}} to JSON string.
+    #'
+    #' @return JSON string reprenation of the {{{classname}}}.
+    #' @export
+    #' @md
     toJSON = function() {
       if (!is.null(self$actual_instance)) {
         self$actual_instance$toJSONString()
@@ -63,6 +87,15 @@
         NULL
       }
     },
+    #' Validate the input JSON with respect to {{{classname}}}.
+    #'
+    #' @description
+    #' Validate the input JSON with respect to {{{classname}}} and
+    #' throw exception if invalid.
+    #'
+    #' @param input The input JSON.
+    #' @export
+    #' @md
     validateJSON = function(input) {
       # backup current values
       actual_instance_bak <- self$actual_instance

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

 {{#appName}}
-# {{{.}}}
-#
+#' {{{.}}}
+#'
 {{/appName}}
 {{#appDescription}}
-# {{{.}}}
-#
+#' {{{.}}}
+#'
 {{/appDescription}}
 {{#version}}
-# The version of the OpenAPI document: {{{.}}}
+#' The version of the OpenAPI document: {{{.}}}
 {{/version}}
 {{#infoEmail}}
-# Contact: {{{.}}}
+#' Contact: {{{.}}}
 {{/infoEmail}}
-# Generated by: https://openapi-generator.tech
+#' Generated by: https://openapi-generator.tech
+#'

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

-# OpenAPI Petstore
-#
-# This is a sample server Petstore server. For this sample, you can use the api key `special-key` to test the authorization filters.
-#
-# The version of the OpenAPI document: 1.0.0
-# Generated by: https://openapi-generator.tech
+#' OpenAPI Petstore
+#'
+#' This is a sample server Petstore server. For this sample, you can use the api key `special-key` to test the authorization filters.
+#'
+#' The version of the OpenAPI document: 1.0.0
+#' Generated by: https://openapi-generator.tech
+#'
 
 #' @docType class
 #' @title AllofTagApiResponse

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

-# OpenAPI Petstore
-#
-# This is a sample server Petstore server. For this sample, you can use the api key `special-key` to test the authorization filters.
-#
-# The version of the OpenAPI document: 1.0.0
-# Generated by: https://openapi-generator.tech
+#' OpenAPI Petstore
+#'
+#' This is a sample server Petstore server. For this sample, you can use the api key `special-key` to test the authorization filters.
+#'
+#' The version of the OpenAPI document: 1.0.0
+#' Generated by: https://openapi-generator.tech
+#'
 
 #' @docType class
 #' @title Animal