Suppressed checks for full output objects

Biometris · Sep 24, 2024 · 215c801 · 215c801
1 parent 496ccf7
commit 215c801
Show file tree

Hide file tree

Showing 7 changed files with 4 additions and 7 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -9,4 +9,4 @@ public
 testScripts
 ^cran-comments\.md$
 ^CRAN-SUBMISSION$
-.github
+.github
diff --git a/inst/tinytest/mod_dcca b/inst/tinytest/mod_dcca
diff --git a/inst/tinytest/mod_wrda b/inst/tinytest/mod_wrda
diff --git a/inst/tinytest/scores_wrda b/inst/tinytest/scores_wrda
diff --git a/inst/tinytest/scores_wrda_abs b/inst/tinytest/scores_wrda_abs
diff --git a/inst/tinytest/test_dcca.R b/inst/tinytest/test_dcca.R
@@ -76,6 +76,3 @@ expect_equal(names(dcca_print),
                "eigenvalues", "c_traits_normed0", "inertia", "site_axes", 
                "species_axes", "c_env_normed", "c_traits_normed"))
 
-mod_dcca$RDAonEnv$CCA <- NULL
-expect_equal_to_reference(mod_dcca, "mod_dcca")
-
diff --git a/inst/tinytest/test_wrda.R b/inst/tinytest/test_wrda.R
@@ -17,18 +17,18 @@ expect_inherits(mod_wrda, "wrda")
 
 expect_equivalent(mod_wrda$eig, anova(mod_wrda)$eig)
 
-expect_equal_to_reference(mod_wrda, "mod_wrda")
-
 expect_equal(anova(mod_wrda, by = "axis")$table$Variance,
              c(13.4759764625272, 3.51996709660156, 2.83281997217771, 
                1.90283508422467, 24.4005894936307))
 
 scores_wrda <- scores(mod_wrda, display = "all")
-expect_equal_to_reference(scores_wrda, "scores_wrda")
 
 scores_sub <- scores(mod_wrda, which_cor = c("A1", "Manure"), display = "cor")
 expect_equivalent(scores_wrda$correlation[c("A1", "Manure"), ], scores_sub)
 
+scores_wrda_abs <- sapply(X = scores_wrda, FUN = abs)
+expect_equal_to_reference(scores_wrda_abs, "scores_wrda_abs")
+
 # The default is equal weights, which allows checking against vegan
 mod_wrda_ew <- wrda(formula = ~ A1 + Moist + Mag + Use + Condition(Manure),
                     response = response,