update to-dataframe example to use non-superceded tidyverse functions

Author: mattpollock

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

@@ -218,7 +218,9 @@
     #' @examples
     #' # convert array of {{{classname}}} (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

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

@@ -55,7 +55,9 @@ Bird <- R6::R6Class(
     #' @examples
     #' # convert array of Bird (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

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

@@ -55,7 +55,9 @@ Category <- R6::R6Class(
     #' @examples
     #' # convert array of Category (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

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

@@ -82,7 +82,9 @@ DataQuery <- R6::R6Class(
     #' @examples
     #' # convert array of DataQuery (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

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

@@ -102,7 +102,9 @@ DefaultValue <- R6::R6Class(
     #' @examples
     #' # convert array of DefaultValue (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

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

@@ -61,7 +61,9 @@ NumberPropertiesOnly <- R6::R6Class(
     #' @examples
     #' # convert array of NumberPropertiesOnly (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

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

@@ -90,7 +90,9 @@ Pet <- R6::R6Class(
     #' @examples
     #' # convert array of Pet (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

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

@@ -54,7 +54,9 @@ Query <- R6::R6Class(
     #' @examples
     #' # convert array of Query (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

samples/client/echo_api/r/R/tag.R

@@ -55,7 +55,9 @@ Tag <- R6::R6Class(
     #' @examples
     #' # convert array of Tag (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {

samples/client/echo_api/r/R/test_form_object_multipart_request_marker.R

@@ -46,7 +46,9 @@ TestFormObjectMultipartRequestMarker <- R6::R6Class(
     #' @examples
     #' # convert array of TestFormObjectMultipartRequestMarker (x) to a data frame
     #' \dontrun{
-    #' df <- x |> purrr::map_dfr(\(y)y$toList())
+    #' library(purrr)
+    #' library(tibble)
+    #' df <- x |> map(\(y)y$toList()) |> map(as_tibble) |> list_rbind()
     #' df
     #' }
     toList = function() {