From faf761ae9ce6a721ebca8b774de42a069eda6792 Mon Sep 17 00:00:00 2001
From: JTPetter <61797391+JTPetter@users.noreply.github.com>
Date: Wed, 13 Sep 2023 13:07:48 +0200
Subject: [PATCH 1/2] Disable the explanations

---
 R/LSTdecisionTree.R                 | 1 -
 inst/qml/LSTPValues.qml             | 9 ++++++++-
 inst/qml/LSTcentralLimitTheorem.qml | 9 ++++++---
 inst/qml/LSTdescriptives.qml        | 2 ++
 inst/qml/LSTsampleVariability.qml   | 6 ++++--
 inst/qml/LSTstandardError.qml       | 9 ++++++---
 6 files changed, 26 insertions(+), 10 deletions(-)

diff --git a/R/LSTdecisionTree.R b/R/LSTdecisionTree.R
index 0acc917..f7c60ea 100644
--- a/R/LSTdecisionTree.R
+++ b/R/LSTdecisionTree.R
@@ -207,7 +207,6 @@ LSTdecisionTree <- function(jaspResults, dataset = NULL, options) {
   
   jaspResults[["DecisionTree"]] <- createJaspContainer("")
   jaspResults[["DecisionTree"]][["Heading"]] <- plot1
-  jaspResults[["DecisionTree"]][["Text"]] <- createJaspHtml("Some explanation and maybe a link to the test?", "p")
   
   # create decision tree plot
   if (options[["displayFullTree"]]) {
diff --git a/inst/qml/LSTPValues.qml b/inst/qml/LSTPValues.qml
index 312cb53..cd7bd53 100644
--- a/inst/qml/LSTPValues.qml
+++ b/inst/qml/LSTPValues.qml
@@ -294,6 +294,13 @@ Form
 	Section
 	{
 		title:	qsTr("Options")
-		CheckBox	{	name: "introText"; label:	qsTr("Introductory text")	}
+		
+		CheckBox	
+		{	
+			name: "introText" 
+			label:	qsTr("Introductory text")
+			checked:	false
+			enabled:	false
+		}
 	}
 }
diff --git a/inst/qml/LSTcentralLimitTheorem.qml b/inst/qml/LSTcentralLimitTheorem.qml
index 196d3f9..d0a3987 100644
--- a/inst/qml/LSTcentralLimitTheorem.qml
+++ b/inst/qml/LSTcentralLimitTheorem.qml
@@ -58,7 +58,8 @@ Form
 			{
 				name:		"parentExplain"
 				label:		qsTr("Show explanatory text")
-				checked:	true
+				checked:	false
+				enabled:	false
 			}
 		}
 		
@@ -179,7 +180,8 @@ Form
 			{
 				name:		"samplesExplain"
 				label:		qsTr("Show explanatory text")
-				checked:	true
+				checked:	false
+				enabled:	false
 			}
 		
 			DoubleField
@@ -279,7 +281,8 @@ Form
 			{
 				name:		"samplingDistExplain"
 				label:		qsTr("Show explanatory text")
-				checked:	true
+				checked:	false
+				enabled:	false
 			}
 	}
 	
diff --git a/inst/qml/LSTdescriptives.qml b/inst/qml/LSTdescriptives.qml
index 653f85c..a6ebb6e 100644
--- a/inst/qml/LSTdescriptives.qml
+++ b/inst/qml/LSTdescriptives.qml
@@ -255,6 +255,8 @@ Form
 			{
 				name:		"LSdescExplanation"
 				label:		qsTr("Show explanation")
+				checked:	false
+				enabled:	false
 			}	
 		}
 	}
diff --git a/inst/qml/LSTsampleVariability.qml b/inst/qml/LSTsampleVariability.qml
index dbbd080..101653b 100644
--- a/inst/qml/LSTsampleVariability.qml
+++ b/inst/qml/LSTsampleVariability.qml
@@ -94,7 +94,8 @@ Form
 			{
 				name:		"parentExplain"
 				label:		qsTr("Show explanatory text")
-				checked:	true
+				checked:	false
+				enabled:	false
 			}
 		}
 		
@@ -249,7 +250,8 @@ Form
 			{
 				name:		"samplesExplain"
 				label:		qsTr("Show explanatory text")
-				checked:	true
+				checked:	false
+				enabled:	false
 			}
 		
 			DoubleField
diff --git a/inst/qml/LSTstandardError.qml b/inst/qml/LSTstandardError.qml
index edc3280..539a112 100644
--- a/inst/qml/LSTstandardError.qml
+++ b/inst/qml/LSTstandardError.qml
@@ -58,7 +58,8 @@ Form
 			{
 				name:		"parentExplain"
 				label:		qsTr("Show explanatory text")
-				checked:	true
+				checked:	false
+				enabled:	false
 			}
 		}
 		
@@ -187,7 +188,8 @@ Form
 			{
 				name:		"samplesExplain"
 				label:		qsTr("Show explanatory text")
-				checked:	true
+				checked:	false
+				enabled:	false
 			}
 		
 			DoubleField
@@ -287,7 +289,8 @@ Form
 		{
 			name:		"samplingDistExplain"
 			label:		qsTr("Show explanatory text")
-			checked:	true
+			checked:	false
+			enabled:	false
 		}
 	}
 	

From 6477cc4f3df5463a6b9f053659fc20d8ba59dfe3 Mon Sep 17 00:00:00 2001
From: JTPetter <61797391+JTPetter@users.noreply.github.com>
Date: Thu, 14 Sep 2023 18:20:35 +0200
Subject: [PATCH 2/2] Add TODO instead of deleting placeholder

---
 R/LSTdecisionTree.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/LSTdecisionTree.R b/R/LSTdecisionTree.R
index f7c60ea..ec092e7 100644
--- a/R/LSTdecisionTree.R
+++ b/R/LSTdecisionTree.R
@@ -207,6 +207,7 @@ LSTdecisionTree <- function(jaspResults, dataset = NULL, options) {
   
   jaspResults[["DecisionTree"]] <- createJaspContainer("")
   jaspResults[["DecisionTree"]][["Heading"]] <- plot1
+  # jaspResults[["DecisionTree"]][["Text"]] <- createJaspHtml("placeholder", "p") #TODO: Write an informative explanation for each test and where to find it in JASP (maybe even create a link if possible).
   
   # create decision tree plot
   if (options[["displayFullTree"]]) {