Pvec não dá problema quando o resultado tem len 0

abjur · Feb 25, 2019 · 0e3d3c8 · 0e3d3c8
1 parent 3f356e2
commit 0e3d3c8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/pvec.R b/R/pvec.R
@@ -43,6 +43,9 @@ pvec <- function(.x, .f, ..., .cores = get_cores(), .progress = TRUE, .flatten =
       return(list(result = NULL))
     }
     else {
+      if (length(x$result) == 0) {
+        return(list(result = NULL))
+      }
       return(purrr::compact(x))
     }
   }