Add warning message

insightsengineering · Oct 7, 2024 · b468463 · b468463
1 parent 24c72a4
commit b468463
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/odds_ratio.R b/R/odds_ratio.R
@@ -130,6 +130,13 @@ s_odds_ratio <- function(df,
     }
   }
 
+  if (is.na(y$or_ci$est)) {
+    message(
+      'Unable to compute the odds ratio estimate. Please try re-running the function with ',
+      'parameter `method` set to "approximate".'
+    )
+  }
+
   y$or_ci <- formatters::with_label(
     x = y$or_ci,
     label = paste0("Odds Ratio (", 100 * conf_level, "% CI)")