R/verify_suggested.R

In MetabolomicsBasics: Basic Functions to Investigate Metabolomics Data Matrices

#' @title verify_suggested.
#' @description Check if packages are available and stop function otherwise.
#' @param pkg Package names to be checked.
#' @return TRUE if everything is installed, FALSE (and a warning) otherwise.
#' @keywords internal
#' @noRd
verify_suggested <- function(pkg) {
  # verify that suggested packages are available
  check_pkg <- sapply(pkg, requireNamespace, quietly = TRUE)
  if (!all(check_pkg)) {
    warning(paste0(
      "The use of this function requires package", ifelse(sum(!check_pkg)>1, "s ", " "),
      paste(names(check_pkg)[!check_pkg], collapse=", "),
      ". Please install."
    ))
    return(FALSE)
  }
  return(TRUE)
}