better fix

R/formatting_functions.R

@@ -151,7 +151,7 @@ format_count_fraction_fixed_dp <- function(x, ...) {
 
   result <- if (x[1] == 0) {
     "0"
-  } else if (all.equal(x[2], 1)) {
+  } else if (.is_equal_float(x[2], 1)) {
     sprintf("%d (100%%)", x[1])
   } else {
     sprintf("%d (%.1f%%)", x[1], x[2] * 100)

R/utils.R

@@ -135,12 +135,36 @@ check_same_n <- function(..., omit_null = TRUE) {
 
   if (length(unique(n)) > 1) {
     sel <- which(n != n[1])
-    stop("dimension mismatch:", paste(names(n)[sel], collapse = ", "), " do not have N=", n[1])
+    stop("Dimension mismatch:", paste(names(n)[sel], collapse = ", "), " do not have N=", n[1])
   }
 
   TRUE
 }
 
+#' Utility function to check if a float is equal to another float
+#'
+#' @description Uses `.Machine$double.eps` as the tolerance for the comparison.
+#'
+#' @param x (`float`)\cr A single number.
+#' @param y (`float`)\cr A single number.
+#'
+#' @return `TRUE`, if identical. `FALSE`, otherwise
+#'
+#' @examples
+#' .is_equal_float(49/49, 1)
+#'
+#' @keywords internal
+.is_equal_float <- function(x, y) {
+  checkmate::assert_number(x)
+  checkmate::assert_number(y)
+
+  # Define a tolerance
+  tolerance <- .Machine$double.eps
+
+  # Check if x is close enough to y
+  abs(x - y) < tolerance
+}
+
 #' Make Names Without Dots
 #'
 #' @param nams (`character`)\cr vector of original names.

tests/testthat/test-formats.R

@@ -223,7 +223,7 @@ testthat::test_that("formats with nominator == to denominator are always formatt
     rowwise() %>%
     mutate(count = Ncol) %>%
     mutate(pct = count * (1 / Ncol)) %>%
-    mutate(check_new = all.equal(pct, 1)) %>%
+    mutate(check_new = .is_equal_float(pct, 1)) %>%
     mutate(check = pct == 1) %>%
     mutate(fmt_print = format_count_fraction_fixed_dp(c(count, pct)))