R/check_assoc_qt_covar_params.R

In richelbilderbeek/plinkr: Interface to PLINK

#' Check if the \code{assoc_qt_covar_params} are valid, will stop otherwise
#'
#' @note This function is named after the \code{--assoc} PLINK flag.
#' @inheritParams default_params_doc
#' @return Nothing.
#' @examples
#' assoc_qt_covar_params <- create_test_assoc_qt_covar_params()
#' check_assoc_qt_covar_params(assoc_qt_covar_params = assoc_qt_covar_params)
#' @author Richèl J.C. Bilderbeek
#' @export
check_assoc_qt_covar_params <- function(assoc_qt_covar_params) {
  testthat::expect_true(is.list(assoc_qt_covar_params))
  testthat::expect_true("maf" %in% names(assoc_qt_covar_params))
  testthat::expect_true("confidence_interval" %in% names(assoc_qt_covar_params))

  testthat::expect_true("allow_no_sex" %in% names(assoc_qt_covar_params))
  testthat::expect_true(
    "base_input_filename" %in% names(assoc_qt_covar_params)
  )
  testthat::expect_true(
    "base_output_filename" %in% names(assoc_qt_covar_params)
  )
  plinkr::check_maf(assoc_qt_covar_params$maf)
  plinkr::check_confidence_interval(assoc_qt_covar_params$confidence_interval)
  plinkr::check_allow_no_sex(assoc_qt_covar_params$allow_no_sex)
  plinkr::check_base_input_filename(assoc_qt_covar_params$base_input_filename)
  plinkr::check_base_output_filename(
    assoc_qt_covar_params$base_output_filename
  )
}