Use mclapply with 1 core for validate

Sage-Bionetworks · Feb 19, 2024 · 64fd3a4 · 64fd3a4
1 parent 1083faa
commit 64fd3a4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/functions/dashboardFuns.R b/functions/dashboardFuns.R
@@ -154,7 +154,7 @@ validate_metadata <- function(metadata, project.scope, schematic_api, schema_url
   if (nrow(metadata) == 0) {
     return(metadata)
   }
-  m2 <- lapply(1:nrow(metadata), function(i) {
+  m2 <- parallel::mclapply(1:nrow(metadata), function(i) {
     manifest <- metadata[i, ]
     cat(paste0("validating ", manifest$Path, "\n"))
     if (is.na(manifest$Component)) {