R/ml_constraints.R

In Neves-P/DAISIErobustness: Test the Robustness of DAISIE to Geodynamics and Traits

#' Checks if MLE passed or errored
#'
#' @inheritParams default_params_doc
#' @author Joshua W. Lambert, Pedro Santos Neves, Shu Xie
#' @keywords internal
#' @return Logical \code{TRUE} if criteria are met, \code{FALSE} if not.
ml_constraints <- function(ml) {
  testit::assert(is.data.frame(ml))
  failed_ml <- any(sapply(ml, is.na))
  if (isTRUE(failed_ml)) {
    return(FALSE)
  } else {
    return(TRUE)
  }
}