allow NA values

easystats · May 26, 2024 · cddbae9 · cddbae9
1 parent 6c7e801
commit cddbae9
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 0.19.11.2
+Version: 0.19.11.3
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",

diff --git a/NAMESPACE b/NAMESPACE
@@ -342,6 +342,7 @@ S3method(format_ci,bayestestR_ci)
 S3method(format_ci,character)
 S3method(format_ci,data.frame)
 S3method(format_ci,factor)
+S3method(format_ci,logical)
 S3method(format_ci,numeric)
 S3method(format_string,character)
 S3method(format_string,data.frame)

diff --git a/R/format_ci.R b/R/format_ci.R
@@ -42,6 +42,12 @@ format_ci <- function(CI_low, ...) {
 }
 
 
+#' @export
+format_ci.logical <- function(CI_low, ...) {
+  ""
+}
+
+
 #' @rdname format_ci
 #' @export
 format_ci.numeric <- function(CI_low,

diff --git a/tests/testthat/test-format_table_ci.R b/tests/testthat/test-format_table_ci.R
@@ -51,6 +51,18 @@ test_that("format_table with multiple si-levels", {
 })
 
 
+test_that("format_table with NA values", {
+  d <- data.frame(
+    a = 1,
+    CI = 0.95,
+    CI_low = NA,
+    CI_high = NA
+  )
+  ft <- insight::format_table(d)
+  expect_identical(ft[["95% CI"]], "")
+})
+
+
 skip_if_not_installed("bayestestR")
 set.seed(1234)
 test_that("format_table with multiple si-levels", {