fix tests errors, add tests/testthat/helper-state.R

easystats · Nov 5, 2023 · 40d3080 · 40d3080
1 parent 8057864
commit 40d3080
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 2 deletions.
diff --git a/R/report.htest.R b/R/report.htest.R
@@ -58,7 +58,10 @@ report_effectsize.htest <- function(x, ...) {
 
     if (grepl("Friedman", attributes(x$statistic)$names, fixed = TRUE)) {
       out <- .report_effectsize_friedman(x, table, dot_args)
-    } else if (grepl("Kruskal", attributes(x$statistic)$names, fixed = TRUE)) {
+    } else if (!is.null(x$statistic) && grepl(
+      "Kruskal", attributes(x$statistic)$names,
+      fixed = TRUE
+    )) {
       # For Kruskal-Wallis test ---------------
 
       out <- .report_effectsize_kruskal(x, table, dot_args)
@@ -266,7 +269,10 @@ report_parameters.htest <- function(x, table = NULL, ...) {
     model_info$is_ranktest &&
       grepl("Friedman", attributes(x$statistic)$names, fixed = TRUE)) {
     out <- .report_parameters_friedman(table, stats, effsize, ...)
-  } else if (grepl("Kruskal", attributes(x$statistic)$names, fixed = TRUE)) {
+  } else if (!is.null(x$statistic) && grepl(
+    "Kruskal", attributes(x$statistic)$names,
+    fixed = TRUE
+  )) {
     # Kruskal
     out <- .report_parameters_kruskal(table, stats, effsize, ...)
     # chi2

diff --git a/tests/testthat/helper-state.R b/tests/testthat/helper-state.R
@@ -0,0 +1,13 @@
+testthat::set_state_inspector(function() {
+  list(
+    attached = search(),
+    connections = nrow(showConnections()),
+    cwd = getwd(),
+    envvars = Sys.getenv(),
+    libpaths = .libPaths(),
+    locale = Sys.getlocale(),
+    options = .Options,
+    packages = .packages(all.available = TRUE),
+    NULL
+  )
+})