From 64fd3a4177b8d48c8be2f706e0064c31318ed32f Mon Sep 17 00:00:00 2001
From: afwillia <anthony.williams@sagebase.org>
Date: Mon, 19 Feb 2024 11:03:20 -0800
Subject: [PATCH] Use mclapply with 1 core for validate

---
 functions/dashboardFuns.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/functions/dashboardFuns.R b/functions/dashboardFuns.R
index 83feed95..7221decc 100644
--- 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)) {