fix type of json string

Author: mattpollock

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

@@ -456,7 +456,7 @@
         local_var_body <- `{{paramName}}`$toJSONString()
         {{/isArray}}
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       {{/bodyParams}}

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

@@ -334,9 +334,9 @@
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description

samples/client/echo_api/r/R/bird.R

@@ -99,9 +99,9 @@ Bird <- R6::R6Class(
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description

samples/client/echo_api/r/R/body_api.R

@@ -304,7 +304,7 @@ BodyApi <- R6::R6Class(
       if (!is.null(`body`)) {
         local_var_body <- `body`$toJSONString()
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       local_var_url_path <- "/body/application/octetstream/binary"
@@ -586,7 +586,7 @@ BodyApi <- R6::R6Class(
       if (!is.null(`pet`)) {
         local_var_body <- `pet`$toJSONString()
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       local_var_url_path <- "/echo/body/allOf/Pet"
@@ -682,7 +682,7 @@ BodyApi <- R6::R6Class(
       if (!is.null(`body`)) {
         local_var_body <- `body`$toJSONString()
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       local_var_url_path <- "/echo/body/FreeFormObject/response_string"
@@ -778,7 +778,7 @@ BodyApi <- R6::R6Class(
       if (!is.null(`pet`)) {
         local_var_body <- `pet`$toJSONString()
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       local_var_url_path <- "/echo/body/Pet"
@@ -874,7 +874,7 @@ BodyApi <- R6::R6Class(
       if (!is.null(`pet`)) {
         local_var_body <- `pet`$toJSONString()
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       local_var_url_path <- "/echo/body/Pet/response_string"
@@ -970,7 +970,7 @@ BodyApi <- R6::R6Class(
       if (!is.null(`body`)) {
         local_var_body <- `body`$toJSONString()
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       local_var_url_path <- "/echo/body/string_enum"
@@ -1066,7 +1066,7 @@ BodyApi <- R6::R6Class(
       if (!is.null(`tag`)) {
         local_var_body <- `tag`$toJSONString()
       } else {
-        body <- NULL
+        local_var_body <- NULL
       }
 
       local_var_url_path <- "/echo/body/Tag/response_string"

samples/client/echo_api/r/R/category.R

@@ -99,9 +99,9 @@ Category <- R6::R6Class(
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description

samples/client/echo_api/r/R/data_query.R

@@ -147,9 +147,9 @@ DataQuery <- R6::R6Class(
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description

samples/client/echo_api/r/R/default_value.R

@@ -188,9 +188,9 @@ DefaultValue <- R6::R6Class(
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description

samples/client/echo_api/r/R/number_properties_only.R

@@ -112,9 +112,9 @@ NumberPropertiesOnly <- R6::R6Class(
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description

samples/client/echo_api/r/R/pet.R

@@ -167,9 +167,9 @@ Pet <- R6::R6Class(
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description

samples/client/echo_api/r/R/query.R

@@ -98,9 +98,9 @@ Query <- R6::R6Class(
 
       json_string <- jsonlite::toJSON(json_obj, auto_unbox = TRUE, digits = NA, ...)
       if (minify) {
-        return(jsonlite::minify(json_string))
+        json_string <- jsonlite::minify(json_string)
       }
-      return(json_string)
+      return(as.character(json_string))
     },
 
     #' @description