Avoid submitting imports as future_lapply jobs

ropensci · Oct 28, 2017 · 041bb50 · 041bb50
1 parent e1d9daf
commit 041bb50
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/future.R b/R/future.R
@@ -4,6 +4,10 @@ run_future_lapply <- function(config){
 }
 
 worker_future_lapply <- function(targets, hash_list, config){
+  targets <- intersect(targets, config$plan$target)
+  if (!length(targets)){
+    return()
+  }
   future::future_lapply(
     x = targets,
     FUN = build_distributed,