fix issues reported by roxygen in r client (#13176)

modules/openapi-generator/src/main/resources/r/libraries/httr2/api_client.mustache

@@ -173,7 +173,7 @@ ApiClient  <- R6::R6Class(
     #' @param content_types The HTTP content-type headers.
     #' @param body The HTTP request body.
     #' @param is_oauth True if the endpoints required OAuth authentication.
-    #' @param oauth_scoeps OAuth scopes.
+    #' @param oauth_scopes OAuth scopes.
     #' @param stream_callback Callback function to process the data stream.
     #' @param ... Other optional arguments.
     #' @return HTTP response
@@ -204,7 +204,7 @@ ApiClient  <- R6::R6Class(
     #' @param content_types The HTTP content-type headers.
     #' @param body The HTTP request body.
     #' @param is_oauth True if the endpoints required OAuth authentication.
-    #' @param oauth_scoeps OAuth scopes.
+    #' @param oauth_scopes OAuth scopes.
     #' @param stream_callback Callback function to process data stream.
     #' @param ... Other optional arguments.
     #' @return HTTP response

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

@@ -1,8 +1,21 @@
+#' @docType class
+#' @title {{classname}}
+#' @description {{classname}} Class
+#' @format An \code{R6Class} generator object
+#' @importFrom R6 R6Class
+#' @importFrom jsonlite fromJSON toJSON
 #' @export
 {{#allowableValues}}
 {{classname}} <- R6::R6Class(
   "{{classname}}",
   public = list(
+    #' Initialize a new {{{classname}}} class.
+    #'
+    #' @description
+    #' Initialize a new {{{classname}}} class.
+    #'
+    #' @param ... Optional arguments.
+    #' @export
     initialize = function(...) {
       local.optional.var <- list(...)
       val <- unlist(local.optional.var)
@@ -15,20 +28,50 @@
               paste0(enumvec, collapse = ", "))
       private$value <- val
     },
+    #' To JSON string
+    #'
+    #' @description
+    #' To JSON String
+    #'
+    #' @return {{{classname}}} in JSON format
+    #' @export
     toJSON = function() {
         jsonlite::toJSON(private$value, auto_unbox = TRUE)
     },
-        fromJSON = function({{classname}}Json) {
+    #' Deserialize JSON string into an instance of {{{classname}}}
-            private$value <- jsonlite::fromJSON({{classname}}Json,
+    #'
+    #' @description
+    #' Deserialize JSON string into an instance of {{{classname}}}
+    #'
+    #' @param input_json the JSON input
+    #' @return the instance of {{{classname}}}
+    #' @export
+    fromJSON = function(input_json) {
+      private$value <- jsonlite::fromJSON(input_json,
           simplifyVector = FALSE)
       self
     },
+    #' To JSON string
+    #'
+    #' @description
+    #' To JSON String
+    #'
+    #' @return {{{classname}}} in JSON format
+    #' @export
     toJSONString = function() {
       as.character(jsonlite::toJSON(private$value,
           auto_unbox = TRUE))
     },
-        fromJSONString = function({{classname}}Json) {
+    #' Deserialize JSON string into an instance of {{{classname}}}
-            private$value <- jsonlite::fromJSON({{classname}}Json,
+    #'
+    #' @description
+    #' Deserialize JSON string into an instance of {{{classname}}}
+    #'
+    #' @param input_json the JSON input
+    #' @return the instance of {{{classname}}}
+    #' @export
+    fromJSONString = function(input_json) {
+      private$value <- jsonlite::fromJSON(input_json,
           simplifyVector = FALSE)
       self
     }
@@ -40,9 +83,7 @@
 
 # add to utils.R
 .parse_{{name}} <- function(vals) {
-    res <- gsub("^\\[|\\]$", "",
+  res <- gsub("^\\[|\\]$", "", "{{{values}}}")
-        "{{{values}}}"
-    )
   unlist(strsplit(res, ", "))
 }
 {{/allowableValues}}

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

@@ -166,7 +166,7 @@ ApiClient  <- R6::R6Class(
     #' @param content_types The HTTP content-type headers.
     #' @param body The HTTP request body.
     #' @param is_oauth True if the endpoints required OAuth authentication.
-    #' @param oauth_scoeps OAuth scopes.
+    #' @param oauth_scopes OAuth scopes.
     #' @param stream_callback Callback function to process the data stream.
     #' @param ... Other optional arguments.
     #' @return HTTP response
@@ -197,7 +197,7 @@ ApiClient  <- R6::R6Class(
     #' @param content_types The HTTP content-type headers.
     #' @param body The HTTP request body.
     #' @param is_oauth True if the endpoints required OAuth authentication.
-    #' @param oauth_scoeps OAuth scopes.
+    #' @param oauth_scopes OAuth scopes.
     #' @param stream_callback Callback function to process data stream.
     #' @param ... Other optional arguments.
     #' @return HTTP response