suppress warnings when fragile caught system calls fail

FredHutch · Sep 26, 2024 · db9906c · db9906c
1 parent baa672e
commit db9906c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/reproducibility_tables.R b/R/reproducibility_tables.R
@@ -35,7 +35,7 @@ get_full_name <- function(id = NULL){
          Linux   = {
            if (is.null(id)) {id <- Sys.getenv("USER")}
            myargs <- paste0("-x -h ldapint.pc.scharp.org -b dc=scharp,dc=org uid=", id)
-           user <- tryCatch({system2("ldapsearch", args = myargs, stdout = TRUE)},
+           user <- tryCatch({system2("ldapsearch", args = myargs, stdout = TRUE, stderr = FALSE)},
                             warning = function(w){NULL},
                             error = function(e){NULL})
            user <- user[grep("cn:", user)]
@@ -48,7 +48,7 @@ get_full_name <- function(id = NULL){
          Darwin  = {
            if (is.null(id)) {id <- Sys.getenv("USER")}
            myargs <- paste0("-x -h ldapint.pc.scharp.org -b dc=scharp,dc=org uid=", id)
-           user <- tryCatch({system2("ldapsearch", args = myargs, stdout = TRUE)},
+           user <- tryCatch({system2("ldapsearch", args = myargs, stdout = TRUE, stderr = FALSE)},
                             warning = function(w){NULL},
                             error = function(e){NULL})
            user <- user[grep("cn:", user)]