From 6d16fb3c7e68947bda8c93b50c2e5ecfd99e356c Mon Sep 17 00:00:00 2001
From: JTPetter <61797391+JTPetter@users.noreply.github.com>
Date: Wed, 8 Nov 2023 01:57:59 +0100
Subject: [PATCH] Fix i18n tests

---
 R/variablesChartsSubgroups.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/variablesChartsSubgroups.R b/R/variablesChartsSubgroups.R
index db227a7c..02bbf458 100644
--- a/R/variablesChartsSubgroups.R
+++ b/R/variablesChartsSubgroups.R
@@ -80,7 +80,7 @@ variablesChartsSubgroups <- function(jaspResults, dataset, options) {
       nDroppedStageRows <- sum(is.na(dataset[[stages]]))
       dataset <- dataset[!is.na(dataset[[stages]]),]
       removalType <- if (wideFormat) "subgroup(s)" else "observation(s)"
-      plotNotes <- paste0(plotNotes, gettextf("Removed %i %s that were not assigned to any stage.<br>", nDroppedStageRows, removalType))
+      plotNotes <- paste0(plotNotes, gettextf("Removed %1$i %2$s that were not assigned to any stage.<br>", nDroppedStageRows, removalType))
     }
   }