flatten chunks of fetched df before rbind-ing

ropensci · Jan 29, 2024 · eedbd7e · eedbd7e
1 parent ccb6c29
commit eedbd7e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/oa_fetch.R b/R/oa_fetch.R
@@ -141,6 +141,8 @@ oa_fetch <- function(entity = if (is.null(identifier)) NULL else id_type(shorten
   if (output == "list") {
     unlist(final_res, recursive = FALSE)
   } else {
+    # Flatten out the initial chunking of 50 at a time
+    final_res <- list(unlist(final_res, recursive = FALSE))
     do.call(rbind, lapply(
       final_res, oa2df,
       entity = entity, options = options, abstract = abstract,