R/try_vglm.R

In jenniferthompson/ClusterMultinom: Clustered Multinomial Logistic Regression

#' Silently catch errors for \code{VGAM::vglm()} calls
#'
#' @param ... Arguments to be passed to \code{VGAM::vglm()}.
#'
#' @export

try_vglm <- function(...){
  ## Turn all warning messages into errors; reset upon exit
  op <- options(warn = 2)
  on.exit(options(op))
  ## Fit VGAM::vglm() without warnings
  try(VGAM::vglm(..., silent = TRUE))
}