#' Create a set of MHCnuggets options.
#'
#' Create a set of options to run MHCnuggets with.
#'
#' This function will give an error message if the arguments are invalid.
#' @inheritParams default_params_doc
#' @return an \code{mhcnuggets_options}
#' @examples
#' if (is_mhcnuggets_installed()) {
#'   create_mhcnuggets_options(
#'     mhc = "HLA-A02:01"
#'   )
#' }
#' @note an \code{mhcnuggets_options} created
#' by \link{create_mhcnuggets_options} is always
#' checked by \link{check_mhcnuggets_options}
#' @seealso use \link{create_test_mhcnuggets_options} to create an
#'   MHCnuggets object for testing
#' @author Richèl J.C. Bilderbeek
#' @export
create_mhcnuggets_options <- function(
  mhc_class = NA,
  mhc,
  ba_models = FALSE,
  verbose = FALSE,
  folder_name = get_default_mhcnuggets_folder(),
  mhcnuggets_url = get_mhcnuggets_url()
) {
  mhcnuggets_options <- list(
    mhc_class = mhc_class,
    mhc = mhc,
    ba_models = ba_models,
    verbose = verbose,
    folder_name = folder_name,
    mhcnuggets_url = mhcnuggets_url
  )
  mhcnuggetsr::check_mhcnuggets_options(mhcnuggets_options)
  mhcnuggets_options
}