From a98cb4787fe1c971c468200c0616a2cd521083ff Mon Sep 17 00:00:00 2001 From: afwillia Date: Tue, 20 Feb 2024 07:36:28 -0800 Subject: [PATCH] Remove cat() debugging statements in dashboard --- functions/dashboardFuns.R | 3 --- 1 file changed, 3 deletions(-) diff --git a/functions/dashboardFuns.R b/functions/dashboardFuns.R index 7221decc..be6c6c5d 100644 --- a/functions/dashboardFuns.R +++ b/functions/dashboardFuns.R @@ -156,7 +156,6 @@ validate_metadata <- function(metadata, project.scope, schematic_api, schema_url } m2 <- parallel::mclapply(1:nrow(metadata), function(i) { manifest <- metadata[i, ] - cat(paste0("validating ", manifest$Path, "\n")) if (is.na(manifest$Component)) { data.frame( Result = "invalid", @@ -186,11 +185,9 @@ validate_metadata <- function(metadata, project.scope, schematic_api, schema_url access_token = access_token, file_name = manifest$Path) ) - cat(paste0(unlist(validation_res), "\n")) if (!inherits(validation_res, "try-error")) { # clean validation res from schematicpy clean_res <- validationResult(validation_res, manifest$Component, dashboard = TRUE) - cat("iteration ", i, " : ", unlist(clean_res), "\n") clean_res[which(sapply(clean_res, is.null))] <- NA if (grepl("Cannot validate manifest", clean_res$error_msg[[1]])) { clean_res <- bind_cols(clean_res)