Failure fix for M1mac and noLD - long double problems for sum(weights)

R/control_incidence_rate.R

@@ -10,7 +10,7 @@
 #'   for confidence interval type.
 #' @param input_time_unit (`string`)\cr `day`, `week`, `month`, or `year` (default)
 #'   indicating time unit for data input.
-#' @param num_pt_year (`numeric`)\cr number of patient-years to use when calculating AE rate.
+#' @param num_pt_year (`numeric`)\cr number of patient-years to use when calculating `AE` rate.
 #' @param time_unit_input `r lifecycle::badge("deprecated")` Please use the `input_time_unit` argument instead.
 #' @param time_unit_output `r lifecycle::badge("deprecated")` Please use the `num_pt_year` argument instead.
 #'

R/estimate_proportion.R

@@ -277,7 +277,7 @@ prop_strat_wilson <- function(rsp,
   assert_proportion_value(conf_level)
 
   tbl <- table(rsp, strata)
-  n_strata <- ncol(tbl)
+  n_strata <- length(unique(strata))
 
   # Checking the weights and maximum number of iterations.
   do_iter <- FALSE
@@ -289,8 +289,9 @@ prop_strat_wilson <- function(rsp,
     if (is.null(max_iterations)) max_iterations <- 10
     checkmate::assert_int(max_iterations, na.ok = FALSE, null.ok = FALSE, lower = 1)
   }
-  checkmate::assert_numeric(weights, lower = 0, upper = 1, any.missing = FALSE, len = ncol(tbl))
-  checkmate::assert_int(sum(weights), lower = 1, upper = 1)
+  checkmate::assert_numeric(weights, lower = 0, upper = 1, any.missing = FALSE, len = n_strata)
+  sum_weights <- checkmate::assert_int(sum(weights))
+  if (as.integer(sum_weights + 0.5) != 1L) stop("Sum of weights must be 1L.")
 
 
   xs <- tbl["TRUE", ]