Fix DAG error message bug

Author: maltelueken

R/classicProcess.R

@@ -1490,7 +1490,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) {
 .procResultsFitModel <- function(container, dataset, options, modelOptions) {
   # Check if graph has error message
   if (!.procCheckGraph(container[["graph"]]$object) && jaspBase::isTryError(container[["graph"]]$object)) {
-    return(.procEstimationMsg())
+    return(jaspBase::.extractErrorMessage(container[["graph"]]$object))
   }
 
   # Should model be fitted?

tests/testthat/test-classic-process-integration-general.R

@@ -1405,7 +1405,7 @@ test_that("Directed acyclic graph error message works", {
   set.seed(1)
   results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options)
 
-  refMsg <- jaspProcess:::.procEstimationMsg(jaspProcess:::.procDagMsg())
+  refMsg <- jaspProcess:::.procDagMsg()
 
   msg <- results[["results"]][["parEstContainer"]][["collection"]][["parEstContainer_Model 1"]][["collection"]][["parEstContainer_Model 1_pathCoefficientsTable"]][["error"]][["errorMessage"]]
   expect_equal(msg, refMsg)