improve req_data prep #29

JBGruber · JBGruber · commit c8ca00de2b3f · 2024-12-07T14:19:46.000+01:00
diff --git a/R/lib.R b/R/lib.R
@@ -185,8 +185,8 @@ prep_req_data <- function(tbl) {
   if (purrr::pluck_exists(tbl, "options")) {
     tbl$options <- purrr::map(tbl$option, jsonlite::unbox)
   }
-  purrr::map(tbl, function(x) {
-    if (!is.list(x)) {
+  purrr::modify_tree(tbl, leaf = function(x) {
+    if (length(x) == 1L) {
       jsonlite::unbox(x)
     } else {
       x

Original file line number	Diff line number	Diff line change
`@@ -185,8 +185,8 @@ prep_req_data <- function(tbl) {`
`185`	`185`	`if (purrr::pluck_exists(tbl, "options")) {`
`186`	`186`	`tbl$options <- purrr::map(tbl$option, jsonlite::unbox)`
`187`	`187`	`}`
`188`		`- purrr::map(tbl, function(x) {`
`189`		`- if (!is.list(x)) {`
	`188`	`+ purrr::modify_tree(tbl, leaf = function(x) {`
	`189`	`+ if (length(x) == 1L) {`
`190`	`190`	`jsonlite::unbox(x)`
`191`	`191`	`} else {`
`192`	`192`	`x`