tests/testthat/test-plot_lav_cfa.R

In cjvanlissa/tidySEM: Tidy Structural Equation Modeling

library(lavaan)
df <- HolzingerSwineford1939
#df$x2 <- ordered(cut(df$x2, 4))

HS.model <- ' visual  =~ x1 + x2 + x3
              textual =~ x4 + x5 + x6
              speed   =~ x7 + x8 + x9 '
fit <- cfa(HS.model, data=df, meanstructure = T)

test_that("Can plot lavaan without specifying anything", {
  expect_error(do.call(graph_sem, list(model = fit)), NA)
})

layout <- get_layout("", "", "visual","","textual","","speed","", "",
                     paste0("x", 1:9), rows = 2)

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

#nod$label[5] <- "bla"

p2 <- prepare_graph(nodes = nod, layout = layout, edges = edg, angle = 170, text_size = 3)
#p2$edges$curvature[19:24] <- .3
#edges(p2)$curvature[10:12] <- edges(p2)$curvature[10:12] *-1
tmp <- plot(p2)
edges(p2)
test_that("Plot works for lavaan cfa", {
  expect_s3_class(tmp, "ggplot")
})

edges(p2)$linetype <- 1

edges(p2)$colour <- sample(c("red", "blue"), nrow(edges(p2)), replace = T)