From 7427deeb20aa6e1ecdc05da77f3b8397c737e009 Mon Sep 17 00:00:00 2001
From: Johnny <j.b.vandoorn@uva.nl>
Date: Mon, 27 May 2024 12:03:40 +0200
Subject: [PATCH] Fix footnote issue

---
 R/regressionlogistic.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/regressionlogistic.R b/R/regressionlogistic.R
index 646bfabb..707ed99b 100644
--- a/R/regressionlogistic.R
+++ b/R/regressionlogistic.R
@@ -495,10 +495,10 @@ RegressionLogisticInternal <- function(jaspResults, dataset = NULL, options, ...
     }
   }
 
-  predVar   <- as.character(glmObj[[1]][["terms"]])[2]
-  predLevel <- levels(glmObj[[1]][["data"]][[predVar]])[2]
+  predVar   <- options[["dependent"]]
+  predLevel <- levels(dataset[[predVar]])[2]
 
-  jaspResults[["estimatesTable"]]$addFootnote(gettextf("%1$s level '%2$s' coded as class 1.", .unv(predVar), predLevel))
+  jaspResults[["estimatesTable"]]$addFootnote(gettextf("%1$s level '%2$s' coded as class 1.", predVar, predLevel))
 }
 
 .reglogisticEstimatesBootstrapFill <- function(jaspResults, dataset, options){