More updating unit tests

JohnnyDoorn · Apr 9, 2024 · 19a21d0 · 19a21d0
1 parent 53e9d5a
commit 19a21d0
Show file tree

Hide file tree

Showing 10 changed files with 623 additions and 623 deletions.
diff --git a/R/regressionlinear.R b/R/regressionlinear.R
@@ -764,7 +764,7 @@ RegressionLinearInternal <- function(jaspResults, dataset = NULL, options) {
   partialPlotContainer$position <- position
   modelContainer[["partialPlotContainer"]] <- partialPlotContainer
 
-  predictors <- .linregGetPredictors(options$modelTerms)
+  predictors <- .linregGetPredictors(options$modelTerms[[length(options$modelTerms)]][["components"]])
   if (any(.linregIsInteraction(predictors))) {
     .linregCreatePlotPlaceholder(partialPlotContainer, index = "placeholder", title = "")
     partialPlotContainer$setError(gettext("Partial plots are not supported for models containing interaction terms"))

diff --git a/tests/testthat/_snaps/regressionlinear/field-residuals-predicted.svg b/tests/testthat/_snaps/regressionlinear/field-residuals-predicted.svg
diff --git a/.../testthat/_snaps/regressionlinear/marginal-effect-of-contcor1-on-contnormal.svg b/.../testthat/_snaps/regressionlinear/marginal-effect-of-contcor1-on-contnormal.svg
diff --git a/...testthat/_snaps/regressionlinear/marginal-effect-of-contgamma-on-contnormal.svg b/...testthat/_snaps/regressionlinear/marginal-effect-of-contgamma-on-contnormal.svg