fix saving construct scores bug

Author: juliuspfadt

R/plssem.R

@@ -18,8 +18,8 @@
 PLSSEMInternal <- function(jaspResults, dataset, options, ...) {
   jaspResults$addCitation("Rademaker ME, Schuberth F (2020). cSEM: Composite-Based Structural Equation Modeling. Package version: 0.4.0, https://m-e-rademaker.github.io/cSEM/.")
 
-  sink(file="~/Downloads/log.txt")
-on.exit(sink(NULL))
+#   sink(file="~/Downloads/log.txt")
+# on.exit(sink(NULL))
 
   options <- .plsSemPrepOpts(options)
 
@@ -1140,12 +1140,12 @@ checkCSemModel <- function(model, availableVars) {
       progressbarTick()
       prediction_list[i] <- prediction
     }
-  }
-  else if (options[["benchmark"]] == "none") {
+  } else if (options[["benchmark"]] == "none") {
     prediction <- try(cSEM::predict(fit, .handle_inadmissibles = "ignore", .cv_folds = options[["kFolds"]], .r = options[["repetitions"]]))
   } else {
     prediction <- try(cSEM::predict(fit, .handle_inadmissibles = "ignore", .benchmark = benchmarks, .cv_folds = options[["kFolds"]], .r = options[["repetitions"]]))
   }
+
   if (isTryError(prediction)) {
     err <- .extractErrorMessage(prediction)
     if(grepl("attempt to set 'colnames'", err))
@@ -1215,9 +1215,10 @@ checkCSemModel <- function(model, availableVars) {
     if (options[["group"]] != "") {
       scorestab$addColumnInfo(name = "group",  title = gettext("Group"),  type = "string", combine = TRUE)
       group_names <- names(prediction)
-      indicator_names <- names(prediction[[group_names[1]]][["Actual"]])
+      indicator_names <- names(prediction[[group_names[1]]][["Actual"]][[1]])
     } else {
-      indicator_names <- names(prediction[["Actual"]])
+      indicator_names <- names(prediction[["Actual"]][[1]])
+      # Actual list has as many datasets as Repetitions and the indicator names are columns names for each dataset
     }
     for (j in indicator_names) {
       scorestab$addColumnInfo(name = paste0("actual", j),           title = gettext("Actual scores"),                          type = "number", overtitle = gettext(j))
@@ -1241,7 +1242,7 @@ checkCSemModel <- function(model, availableVars) {
         group_i <- rep(i, length(prediction[[i]][["Actual"]][[indicator_names[1]]]))
         group_list <- c(group_list, group_i)
       }
-      scorestab[["group"]]          <- group_list
+      scorestab[["group"]] <- group_list
       for (j in indicator_names) {
         scorestab[[paste0("actual",j)]]               <- unlist(lapply(prediction, function(x) x[["Actual"]][[j]]))
         scorestab[[paste0("prediction",j)]]           <- unlist(lapply(prediction, function(x) x[["Predictions_target"]][, j]))
@@ -1977,34 +1978,48 @@ checkCSemModel <- function(model, availableVars) {
 
   modelNames <- sapply(models, function(x) x[["name"]])
   modelNames <- gsub(" ", "_", modelNames)
-  allNamesR <- c()
+  colNamesR <- c()
+
   # loop over the models
   for (i in seq_len(length(results))) {
-    scores <- cSEM::getConstructScores(results[[i]])$Construct_scores
 
-    # then loop over the scores
-    scoreNames <- colnames(scores)
-    for (ii in seq_len(ncol(scores))) {
+    if (options$group != "") {
+      scoresList <- cSEM::getConstructScores(results[[i]])
+      scores <- lapply(scoresList, function(x) x$Construct_scores)
+      groupLabs <- names(scoresList)
+      facNames <- colnames(scores[[1]])
+      colNamesR <- paste0(rep(groupLabs, each = ncol(scores[[1]])), "_", "CS_", facNames)
+    } else {
+      scores <- cSEM::getConstructScores(results[[i]])$Construct_scores
+      facNames <- colnames(scores)
+      colNamesR <- paste0("CS_", facNames)
+      scores <- list(scores)
+    }
 
-      colNameR <- paste0(modelNames[i], "_", scoreNames[ii])
+    z <- 1
+    for (ll in seq_len(length(scores))) {
+      for (ii in seq_len(ncol(scores[[ll]]))) {
 
-      if (jaspBase:::columnExists(colNameR) && !jaspBase:::columnIsMine(colNameR)) {
-        .quitAnalysis(gettextf("Column '%s' name already exists in the dataset", colNameR))
-      }
+        colNameR <- colNamesR[z]
+        scoresTmp <- scores[[ll]]
+        if (jaspBase:::columnExists(colNameR) && !jaspBase:::columnIsMine(colNameR)) {
+          .quitAnalysis(gettextf("Column name %s already exists in the dataset", colNameR))
+        }
 
-      container[[colNameR]] <- jaspBase::createJaspColumn(colNameR)
-      container[[colNameR]]$setScale(scores[, ii])
+        container[[colNameR]] <- jaspBase::createJaspColumn(colNameR)
+        container[[colNameR]]$setScale(scoresTmp[, ii])
 
-      # save the names to keep track of all names
-      allNamesR <- c(allNamesR, colNameR)
+        z <- z + 1
+
+      }
     }
   }
 
   jaspResults[["addedScoresContainer"]] <- container
 
   # check if there are previous colNames that are not needed anymore and delete the cols
   oldNames <- jaspResults[["createdColumnNames"]][["object"]]
-  newNames <- allNamesR
+  newNames <- colNamesR[1:z]
   if (!is.null(oldNames)) {
     noMatch <- which(!(oldNames %in% newNames))
     if (length(noMatch) > 0) {
@@ -2015,7 +2030,7 @@ checkCSemModel <- function(model, availableVars) {
   }
 
   # save the created col names
-  jaspResults[["createdColumnNames"]] <- createJaspState(allNamesR)
+  jaspResults[["createdColumnNames"]] <- createJaspState(newNames)
 
 
   return()

inst/qml/PLSSEM.qml

@@ -30,6 +30,8 @@ Form
 		id: models
 		name: "models"
 		maximumItems: 1
+		newItemName: qsTr("Model")
+		optionKey: "name"
 
 		content: TextArea { name: "syntax"; width: models.width; textType: JASP.TextTypeCSem; showLineNumber: true }
 	}

renv.lock

@@ -1103,11 +1103,11 @@
       "Version": "0.19.2",
       "Source": "GitHub",
       "RemoteType": "github",
+      "RemoteHost": "api.github.com",
       "RemoteUsername": "jasp-stats",
       "RemoteRepo": "jaspBase",
       "RemoteRef": "master",
-      "RemoteSha": "67652e03f135b8d9b7c42e353a0fe02b9fea0929",
-      "RemoteHost": "api.github.com",
+      "RemoteSha": "cf7c84b877e1af958dd0d5b228d9a81831002bdd",
       "Requirements": [
         "R6",
         "Rcpp",
@@ -1136,18 +1136,18 @@
         "systemfonts",
         "withr"
       ],
-      "Hash": "54ff30fbbe384057dea12677bdb0de3f"
+      "Hash": "98b18ec61f0bd447d543612016111494"
     },
     "jaspGraphs": {
       "Package": "jaspGraphs",
       "Version": "0.19.2",
       "Source": "GitHub",
       "RemoteType": "github",
+      "RemoteHost": "api.github.com",
       "RemoteUsername": "jasp-stats",
       "RemoteRepo": "jaspGraphs",
       "RemoteRef": "master",
-      "RemoteSha": "797e38a84746e9aa0f456439b8f00f756164d82c",
-      "RemoteHost": "api.github.com",
+      "RemoteSha": "9bd1fdafc6bf6a04451f982e6c6dd9002524dbcb",
       "Requirements": [
         "R6",
         "RColorBrewer",
@@ -1160,7 +1160,7 @@
         "scales",
         "viridisLite"
       ],
-      "Hash": "35093128cffc6280d0ec4183a851a9d9"
+      "Hash": "1eacba557c12ef472e122cc9445cb134"
     },
     "jaspTools": {
       "Package": "jaspTools",