tests/testthat/test-brms_mm.R

In insight: Easy Access to Model Information for Various Model Objects

skip_on_cran()
skip_if_not_installed("curl")
skip_if_offline()
skip_on_os("mac")
skip_if_not_installed("brms")
skip_if_not_installed("httr2")

# Tests -------------------------------------------------------------------
test_that("clean_names works with multimembership", {
  m1 <- suppressWarnings(insight::download_model("brms_mm_4"))
  skip_if(is.null(m1))
  expect_identical(
    find_variables(m1),
    list(response = "y", conditional = "x", random = c("s1", "s2"))
  )
})

test_that("get_data works with multimembership", {
  m1 <- suppressWarnings(insight::download_model("brms_mm_4"))
  skip_if(is.null(m1))
  expect_named(
    get_data(m1),
    c("y", "x", "s1", "s2")
  )

  m2 <- suppressWarnings(insight::download_model("brms_mm_2"))
  skip_if(is.null(m2))
  expect_named(
    get_data(m2),
    c("y", "xc", "x1", "x2", "g1", "g2")
  )
})