Breslow-Day test silently ignored if DescTools is not installed

[overdodactyl]

If DescTools is not installed, the Breslow-Day test is silently ignored:

diagnosticSummary/R/dx_tools.R

Lines 486 to 525 in 78a8b42

	if (requireNamespace("DescTools", quietly = TRUE)) {
	predprob = data[[options$pred_varname]]
	pred = ifelse(predprob >= options$setthreshold, 1, 0)
	tmp <- data.frame(
	predprob = predprob,
	truth = data[[options$true_varname]],
	pred = pred,
	group = data[[group_varname]]
	)
	tmp <- dplyr::filter(tmp, !is.na(group))
	tab <- table(tmp$pred, tmp$truth, tmp$group)
	suppressWarnings({
	bd <- DescTools::BreslowDayTest(tab, OR = NA, correct = FALSE)
	})
	measure <- dx_measure_df(
	measure = "Breslow-Day",
	estimate = scales::pvalue(bd$p.value, accuracy = 0.01, add_p = TRUE),
	fraction = "",
	ci_type = "",
	notes = "Mantel-Haenszel OR estimate",
	estimate_raw = bd$p.value,
	lci_raw = NA,
	uci_raw = NA
	)
	measure$variable <- group_varname
	measure$label <- "Overall"
	measure$threshold <- options$setthreshold
	measure$n <- nrow(tmp)
	return(measure)
	}

This can lead to some confusion, particularly if using dx_forest.

The main output should include an empty row with a note that DescTools needs to be installed and dx_forest should generate a warning if "Breslow-Day" is part of measures and not available.