tests/testthat/test-export_risk_stratification_info.R

In alexzwanenburg/familiar: End-to-End Automated Machine Learning and Model Evaluation

# Don't perform any further tests on CRAN due to time of running the complete test.
testthat::skip_on_cran()
testthat::skip_on_ci()

debug_flag <- FALSE

# Default
familiar:::test_export(
  export_function = familiar:::export_risk_stratification_info,
  not_available_some_predictions_fail = FALSE,
  not_available_no_samples = FALSE,
  data_element = "risk_stratification_info",
  outcome_type_available = c("survival"),
  debug = debug_flag
)

# With ensemble detail level.
familiar:::test_export(
  export_function = familiar:::export_risk_stratification_info,
  not_available_some_predictions_fail = FALSE,
  not_available_no_samples = FALSE,
  data_element = "risk_stratification_info",
  detail_level = "ensemble",
  outcome_type_available = c("survival"),
  debug = debug_flag
)

# Without aggregation
familiar:::test_export(
  export_function = familiar:::export_risk_stratification_info,
  not_available_some_predictions_fail = FALSE,
  not_available_no_samples = FALSE,
  data_element = "risk_stratification_info",
  outcome_type_available = c("survival"),
  export_args = list("aggregate_results" = FALSE),
  debug = debug_flag
)