rbind data.frames in error messages

Close #788
ropensci-archive · Feb 15, 2024 · 5656168 · 5656168
1 parent 90e91c4
commit 5656168
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/api_v2_utils.R b/R/api_v2_utils.R
@@ -110,7 +110,11 @@ req_errors <- function(resp) {
   }
 
   if (any(lengths(r$errors) > 1)) {
-    errors <- do.call(rbind, lapply(r$errors, list2DF))
+    if (is.data.frame(r$errors[[1]])) {
+      errors <- do.call(rbind, r$errors)
+    } else {
+      errors <- do.call(rbind, lapply(r$errors, list2DF))
+    }
   }  else {
     errors <- r$errors
   }