in progress

insightsengineering · May 24, 2024 · 38ee5c1 · 38ee5c1
1 parent 3752d8a
commit 38ee5c1
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/R/ard_proportion_ci.R b/R/ard_proportion_ci.R
@@ -34,7 +34,8 @@ ard_proportion_ci <- function(data, variables, by = dplyr::group_vars(data),
                                 "wilson", "wilsoncc",
                                 "strat_wilson", "strat_wilsoncc",
                                 "agresti-coull", "jeffreys"
-                              )) {
+                              ),
+                              value = list(where(is_binary) ~ 1L, where(is.logical) ~ TRUE)) {
   set_cli_abort_call()
 
   # check installed packages ---------------------------------------------------

diff --git a/R/proportion_ci.R b/R/proportion_ci.R
@@ -362,6 +362,13 @@ proportion_ci_strat_wilson <- function(x,
     compact()
 }
 
+#' @describeIn proportion_ci Helper to determine if vector is binary (logical or 0/1)
+#'
+#' @export
+is_binary <- function(x) {
+  is.logical(x) || (is_integerish(x) && is_empty(setdiff(x, c(0, 1, NA))))
+}
+
 #' Helper Function for the Estimation of Stratified Quantiles
 #'
 #' This function wraps the estimation of stratified percentiles when we assume