From d4d4035e983b45be523cad7ab357755559a65096 Mon Sep 17 00:00:00 2001
From: "Robert J. Calin-Jageman" <rcalinjageman@gmail.com>
Date: Thu, 14 Mar 2024 06:30:12 -0500
Subject: [PATCH] fix for jamovi 2.5 - means and medians differences

updated jamovi_mdiff_initialize for proper check of if grouping variable was empty or not, fixing an error that was occuring with 2.5 when grouping variable was not yet set.
---
 .Rbuildignore              |  1 +
 R/jamovi_mdiff_functions.R |  8 ++++++--
 jamovi/0000.yaml           | 17 +++++++----------
 3 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/.Rbuildignore b/.Rbuildignore
index 515b970..443295a 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -4,6 +4,7 @@
 ^.*\.pdf
 build/js
 build/R4.1.3-win64
+build/R4.3.2-x64-win64
 ^data-raw$
 esci_logo.svg
 ^.*\.csv
diff --git a/R/jamovi_mdiff_functions.R b/R/jamovi_mdiff_functions.R
index 2183539..7bf3f50 100644
--- a/R/jamovi_mdiff_functions.R
+++ b/R/jamovi_mdiff_functions.R
@@ -110,8 +110,12 @@ jamovi_mdiff_initialize <- function(self, grouping_variable = TRUE) {
   #  For summary, check group_labels
   if (grouping_variable) {
     if (from_raw) {
-      level_source <- self$options$grouping_variable
-      level_count <- length(levels(as.factor(self$data[, level_source])))
+      if (!is.null(self$options$grouping_variable)) {
+        level_source <- self$options$grouping_variable
+        level_count <- length(levels(as.factor(self$data[, level_source])))
+      } else {
+        level_count = 2
+      }
     } else {
       level_source <- try(level_source <- self$options$grouping_variable_levels, silent = TRUE)
       if (is(level_source, "try-error")) {
diff --git a/jamovi/0000.yaml b/jamovi/0000.yaml
index 9d01a14..bb19e85 100644
--- a/jamovi/0000.yaml
+++ b/jamovi/0000.yaml
@@ -16,11 +16,8 @@ description: >-
   "_blank"> statpsych</a> package by Doug Bonett.</br>
 
 
-  This is a complete rewrite from the prevoius release, breaking previous
-  analyses.  If you need the previous version, you can download and sideload it
-  <a href =
-  "https://thenewstatistics.com/itns/esci/jesci/downloads-of-esci-0-9-4-for-jamovi/"
-  target = "_blank"> here</a>.</br>
+  1.02 adds data files, markdown for figure axis titles, better warnings for
+  ratio effect sizes, references, and a variety of tweak/fixes.
 
 
   Please submit feedback, bug reports, and feature requests via the links
@@ -155,13 +152,13 @@ datasets:
     description: Reread and Prequiz groups in Latimier et al. (2019)
   - name: Ch07 - Kardas Expt 3
     path: Kardas Expt 3.omv
-    description: 'from Kardas and O’Brien (2018), Experiment 3'
+    description: from Kardas and O’Brien (2018), Experiment 3
   - name: Ch07 - Kardas Expt 4
     path: Kardas Expt 4.omv
-    description: 'from Kardas and O’Brien (2018), Experiment 4'
+    description: from Kardas and O’Brien (2018), Experiment 4
   - name: Ch07 - Clean moral
     path: Clean moral.omv
-    description: 'from Schnall et al. (2008), Study 1, and Johnson et al. (2014)'
+    description: from Schnall et al. (2008), Study 1, and Johnson et al. (2014)
   - name: Ch07 - Gender math IAT
     path: Gender math IAT.omv
     description: Ithaca and SDSU replications of Nosek et al. (2002)
@@ -185,7 +182,7 @@ datasets:
     description: from Michael et al. (2013)
   - name: Ch09 - DamischRCJ
     path: DamischRCJ.omv
-    description: 'from 6 Damisch studies, and Calin-Jageman and Caldwell (2014)'
+    description: from 6 Damisch studies, and Calin-Jageman and Caldwell (2014)
   - name: Ch09 - Anchor Estimate ma
     path: Anchor Estimate ma.omv
     description: Many Labs replications of Jacowitz and Kahneman (1995)
@@ -197,7 +194,7 @@ datasets:
     description: Many Labs replications of Nosek et al. (2002)
   - name: Ch09 - PowerPerformance ma
     path: PowerPerformance ma.omv
-    description: 'from Burgmer and Englich (2012), and Cusack et al. (2015)'
+    description: from Burgmer and Englich (2012), and Cusack et al. (2015)
   - name: Ch11 - Thomason 1
     path: Thomason 1.omv
     description: from Thomason 1