delint

Author: IndrajeetPatil

R/ggbarstats.R

@@ -110,7 +110,7 @@ ggbarstats <- function(
     subtitle <- .extract_expression(subtitle_df)
 
     # Bayes Factor caption
-    if (type != "bayes" && bf.message && !paired) {
+    if (type != "bayes" && bf.message && isFALSE(paired)) {
       caption_df <- .eval_f(contingency_table, !!!.f.args, type = "bayes")
       caption <- .extract_expression(caption_df)
     }

R/ggpiestats-ggbarstats-helpers.R

@@ -60,10 +60,12 @@ onesample_data <- function(data, x, y, digits = 2L, ratio = NULL, ...) {
 .chisq_test_safe <- function(data, x_col, ratio) {
   tryCatch(
     suppressWarnings(contingency_table(data, .data[[x_col]], ratio = ratio)),
-    error = \(e) tibble(
-      statistic = NA_real_, p.value = NA_real_, df = NA_real_,
-      method = "Chi-squared test for given probabilities"
-    )
+    error = \(e) {
+      tibble(
+        statistic = NA_real_, p.value = NA_real_, df = NA_real_,
+        method = "Chi-squared test for given probabilities"
+      )
+    }
   )
 }
 

R/ggpiestats.R

@@ -142,7 +142,7 @@ ggpiestats <- function(
     subtitle <- .extract_expression(subtitle_df)
 
     # Bayes Factor caption
-    if (type != "bayes" && bf.message && !paired) {
+    if (type != "bayes" && bf.message && isFALSE(paired)) {
       caption_df <- .eval_f(contingency_table, !!!.f.args, type = "bayes")
       caption <- .extract_expression(caption_df)
     }