Merge branch 'main' of https://github.com/easystats/insight

easystats · May 23, 2023 · d5739eb · d5739eb
2 parents dd3dfac + 24281e2
commit d5739eb
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 22 deletions.
diff --git a/tests/testthat/test-find_weights.R b/tests/testthat/test-find_weights.R
@@ -1,12 +1,14 @@
 skip_if_not_installed("lme4")
 
 test_that("find_weights", {
+  data(mtcars)
   mtcars$weight <- rnorm(nrow(mtcars), 1, 0.3)
   m <- lm(mpg ~ wt + cyl + vs, data = mtcars, weights = weight)
   expect_identical(find_weights(m), "weight")
 })
 
 test_that("find_weights", {
+  data(iris)
   iris$wgt <- rnorm(nrow(iris), 1, 0.3)
   m <- lme4::lmer(Sepal.Width ~ Sepal.Length + (1 | Species), data = iris, weights = wgt)
   expect_identical(find_weights(m), "wgt")

diff --git a/tests/testthat/test-format_table.R b/tests/testthat/test-format_table.R
@@ -1,6 +1,7 @@
 skip_if_offline()
 skip_on_os(c("mac", "linux", "solaris"))
 skip_if_not_installed("bayestestR")
+skip_if_not_installed("rstanarm")
 
 # test for bayesian models -----------------
 m1 <- insight::download_model("stanreg_glm_1")

diff --git a/tests/testthat/test-vgam.R b/tests/testthat/test-vgam.R
@@ -56,8 +56,8 @@ test_that("get_response", {
 })
 
 test_that("get_predictors", {
-  expect_equal(colnames(get_predictors(m1)), c("vitluc", "altitude"))
-  expect_equal(colnames(get_predictors(m2)), c("vitluc", "altitude"))
+  expect_identical(colnames(get_predictors(m1)), c("vitluc", "altitude"))
+  expect_identical(colnames(get_predictors(m2)), c("vitluc", "altitude"))
 })
 
 test_that("link_inverse", {
@@ -66,10 +66,10 @@ test_that("link_inverse", {
 })
 
 test_that("get_data", {
-  expect_equal(nrow(get_data(m1)), 392)
-  expect_equal(nrow(get_data(m2)), 392)
-  expect_equal(colnames(get_data(m1)), c("agaaus", "vitluc", "altitude"))
-  expect_equal(
+  expect_identical(nrow(get_data(m1)), 392L)
+  expect_identical(nrow(get_data(m2)), 392L)
+  expect_identical(colnames(get_data(m1)), c("agaaus", "vitluc", "altitude"))
+  expect_identical(
     colnames(get_data(m2)),
     c("agaaus", "kniexc", "vitluc", "altitude")
   )
@@ -93,25 +93,25 @@ test_that("find_formula", {
 })
 
 test_that("find_terms", {
-  expect_equal(
+  expect_identical(
     find_terms(m1),
     list(
       response = "agaaus",
       conditional = c("vitluc", "s(altitude, df = 2)")
     )
   )
-  expect_equal(
+  expect_identical(
     find_terms(m1, flatten = TRUE),
     c("agaaus", "vitluc", "s(altitude, df = 2)")
   )
-  expect_equal(
+  expect_identical(
     find_terms(m2),
     list(
       response = "cbind(agaaus, kniexc)",
       conditional = c("vitluc", "s(altitude, df = c(2, 3))")
     )
   )
-  expect_equal(
+  expect_identical(
     find_terms(m2, flatten = TRUE),
     c(
       "cbind(agaaus, kniexc)",
@@ -122,30 +122,30 @@ test_that("find_terms", {
 })
 
 test_that("find_variables", {
-  expect_equal(
+  expect_identical(
     find_variables(m1),
     list(
       response = "agaaus",
       conditional = c("vitluc", "altitude")
     )
   )
-  expect_equal(
+  expect_identical(
     find_variables(m1, flatten = TRUE),
     c("agaaus", "vitluc", "altitude")
   )
-  expect_equal(find_variables(m2), list(
+  expect_identical(find_variables(m2), list(
     response = c("agaaus", "kniexc"),
     conditional = c("vitluc", "altitude")
   ))
-  expect_equal(
+  expect_identical(
     find_variables(m2, flatten = TRUE),
     c("agaaus", "kniexc", "vitluc", "altitude")
   )
 })
 
 test_that("n_obs", {
-  expect_equal(n_obs(m1), 392)
-  expect_equal(n_obs(m2), 392)
+  expect_identical(n_obs(m1), 392L)
+  expect_identical(n_obs(m2), 392L)
 })
 
 test_that("linkfun", {
@@ -154,20 +154,20 @@ test_that("linkfun", {
 })
 
 test_that("find_parameters", {
-  expect_equal(
+  expect_identical(
     find_parameters(m1),
     list(
       conditional = c("(Intercept)", "vitluc"),
       smooth_terms = "s(altitude, df = 2)"
     )
   )
-  expect_equal(nrow(get_parameters(m1)), 3)
-  expect_equal(
+  expect_identical(nrow(get_parameters(m1)), 3L)
+  expect_identical(
     get_parameters(m1)$Parameter,
     c("(Intercept)", "vitluc", "s(altitude, df = 2)")
   )
 
-  expect_equal(
+  expect_identical(
     find_parameters(m2),
     list(
       conditional = c(
@@ -179,8 +179,8 @@ test_that("find_parameters", {
       smooth_terms = c("s(altitude, df = c(2, 3)):1", "s(altitude, df = c(2, 3)):2")
     )
   )
-  expect_equal(nrow(get_parameters(m2)), 6)
-  expect_equal(
+  expect_identical(nrow(get_parameters(m2)), 6L)
+  expect_identical(
     get_parameters(m2)$Parameter,
     c(
       "(Intercept):1",