unpack dataframes within a list

Author: mattpollock

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

@@ -351,6 +351,10 @@ ApiClient <- R6::R6Class(
       return_obj <- NULL
       primitive_types <- c("character", "numeric", "integer", "logical", "complex")
 
+      return_type <- gsub(pattern = "^(set|list)\\[",
+                          replacement = "array\\[",
+                          x = return_type)
+
       # To handle the "map" type
       if (startsWith(return_type, "map(")) {
         inner_return_type <- regmatches(return_type,
@@ -371,6 +375,9 @@ ApiClient <- R6::R6Class(
             }
           }
         } else {
+          if (is.list(obj) && length(obj) == 1 && is.data.frame(obj[[1]])) {
+            obj <- obj[[1]]
+          }
           if (!is.null(nrow(obj))) {
             return_obj <- vector("list", length = nrow(obj))
             if (nrow(obj) > 0) {