Fix error handling to prevent .subset2 error message

R/classicProcess.R

@@ -27,7 +27,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) {
   # Read dataset
   dataset <- .procReadData(options)
   # Check for errors in dataset
-  ready <- .procErrorHandling(dataset, options)
+  .procErrorHandling(dataset, options)
   # Create a container for each model
   .procContainerModels(jaspResults, options)
   # Transform input for each model into a graph for further processing
@@ -544,12 +544,16 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) {
 }
 
 .procErrorHandling <- function(dataset, options) {
-  # See error handling
-  vars <- lapply(.procGetDependencies(), function(x) options[[x]])
-  .hasErrors(dataset, "run", type = c('observations', 'variance', 'infinity'),
-             all.target = vars,
-             observations.amount = '< 2',
-             exitAnalysisIfErrors = TRUE)
+  .hasErrors(dataset, "run",
+    type = c('observations', 'variance', 'infinity'),
+    all.target = c(
+      options[["dependent"]],
+      options[["covariates"]],
+      options[["factors"]]
+    ),
+    observations.amount = '< 2',
+    exitAnalysisIfErrors = TRUE
+  )
 
   return(TRUE)
 }