tests/testthat/test-plot_multigroup_multilevel.R

In cjvanlissa/tidySEM: Tidy Structural Equation Modeling

test_that("multilevmultigroup works", {
  tidySEM:::skip_if_not_local()
  Galo <- read.csv("../testdata/galo.csv")

  L.in.G <- ' group: foo
  level: within
    galo ~ focc
  level: between
    galo ~ focc

group: bar
  level: within
    galo ~ focc
  level: between
    galo ~ focc
'

  fit <- suppressWarnings(sem(L.in.G, data = Galo, cluster = "school", fixed.x = FALSE,
                              missing = "fiml", std.lv = TRUE, h1 = TRUE, group = "g"))


  nod <- get_nodes(fit)
  edg <- get_edges(fit)

  layout <- matrix(c("focc.within", "galo.within",
                     "focc.between", "galo.between"), ncol = 2, byrow = TRUE)


  expect_true(nrow(nod) == 2*length(as.vector(layout)[!as.vector(layout) == ""]))

  plevgroup <- prepare_graph(edges = edg, nodes = nod, layout = layout)
  p <- plot(plevgroup)


  expect_s3_class(p, "ggplot")
})