lints

easystats · Sep 24, 2023 · e4968eb · e4968eb
1 parent d0c3d43
commit e4968eb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/report_htest_chi2.R b/R/report_htest_chi2.R
@@ -80,7 +80,7 @@
   } else if (chi2_type(x) == "probabilities") {
     type <- " / goodness of fit of "
     dist <- ifelse(
-      grepl("non", attr(table, "table_footer")), "a uniform distribution",
+      grepl("non", attr(table, "table_footer"), fixed = TRUE), "a uniform distribution",
       paste0("a distribution of [", paste0(
         names(x$expected), ": n=", x$expected,
         collapse = ", "

diff --git a/tests/testthat/test-report.htest-chi2.R b/tests/testthat/test-report.htest-chi2.R
@@ -188,7 +188,7 @@ test_that("report.htest-chi2 report", {
   # Watch carefully in case effectsize adds support
 
   # Mattan example comparison
-  suppressWarnings(x <- chisq.test(mtcars$cyl, mtcars$am))
+  x <- suppressWarnings(chisq.test(mtcars$cyl, mtcars$am))
 
   expect_snapshot(
     variant = "windows",
@@ -198,7 +198,7 @@ test_that("report.htest-chi2 report", {
 
 test_that("report.htest-chi2 for given probabilities", {
   # Mattan example comparison
-  suppressWarnings(x <- chisq.test(table(mtcars$cyl), p = c(0.1, 0.3, 0.6)))
+  x <- suppressWarnings(chisq.test(table(mtcars$cyl), p = c(0.1, 0.3, 0.6)))
 
   expect_snapshot(
     variant = "windows",