Make output for contrasts validation more concise (#81)

* Make output more concise

* Reduce supression and minor format change

Author: delfiterradas

R/accessory.R

@@ -869,17 +869,16 @@ checkListIsSubset <- function(test_list,
                               test_list_name,
                               reference_list_name) {
   if (!all(test_list %in% reference_list)) {
+    missing_vars <- test_list[!test_list %in% reference_list]
     stop(
       paste0(
         "Not all ",
         test_list_name,
-        " (",
-        paste(test_list, collapse = ","),
-        ") are available in the ",
+        " are available in the ",
         reference_list_name,
-        " (",
-        paste(reference_list, collapse = ","),
-        ")"
+        ".\n",
+        "Missing ", test_list_name, ": ", paste(missing_vars, collapse = ", "), "\n",
+        "Available ", reference_list_name, ": ", paste(unique(reference_list), collapse = ", ")
       )
     )
   }

exec/validate_fom_components.R

@@ -102,7 +102,7 @@ if (length(missing_args) > 0) {
   stop(paste("Missing mandatory arguments:", paste(missing_args, collapse = ", ")))
 }
 
-library(shinyngs)
+suppressPackageStartupMessages(library(shinyngs, quietly = TRUE, warn.conflicts = FALSE))
 
 # validate_inputs() just wraps the parsing functions of shinyng, used by e.g.
 # eselistfromConfig(). These functions are good for ensuring the consistency of