added cstsem install test

brandmaier · Apr 8, 2024 · 22a7126 · 22a7126
1 parent e2ad7d0
commit 22a7126
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/semtree.R b/R/semtree.R
@@ -171,6 +171,12 @@ semtree <- function(model, data = NULL, control = NULL, constraints = NULL,
   } else if ((inherits(model, "ctsemFit")) || (inherits(model, "ctsemInit"))) {
     # if (control$verbose) { ui_message("Detected ctsem model.") }
     control$sem.prog <- "ctsem"
+
+    ctsemomx_omx_installed <- "ctsemOMX" %in% installed.packages()[,"Package"]
+    if (!ctsemomx_omx_installed) {
+      stop("Please install ctsemOMX first.")
+    }
+
   } else {
     ui_stop("Unknown model type selected. Use OpenMx or lavaanified lavaan models!")
   }