recognize delayed_datasets in get_extract_datanames

Author: chlebowa

R/data_extract_datanames.R

@@ -61,7 +61,20 @@ get_extract_datanames <- function(data_extracts) {
     }
   })
 
-  unique(unlist(datanames))
+  .extract_delayed_datasets <- function(x) {
+    if (inherits(x, "delayed_datasets")) {
+      attr(x, "datasets", exact = TRUE)
+    } else {
+      x
+    }
+  }
+  datanames <- rapply(datanames, .extract_delayed_datasets)
+
+  if (any(datanames == "all")) {
+    "all"
+  } else {
+    unique(datanames)
+  }
 }
 
 #' Verify uniform dataset source across data extract specification