From eeca0acf7117f6b81dc3da3d10bcf0ce720408c5 Mon Sep 17 00:00:00 2001
From: Derrick Agorhom <76208189+derekagorhom@users.noreply.github.com>
Date: Mon, 9 Dec 2024 10:18:07 +0100
Subject: [PATCH 1/5] Update One Variable Summarise and changing the Format
 options to Table Options.

---
 instat/dlgOneVariableSummarise.Designer.vb | 42 +++++++++++-----------
 instat/dlgOneVariableSummarise.vb          | 16 +++------
 2 files changed, 27 insertions(+), 31 deletions(-)

diff --git a/instat/dlgOneVariableSummarise.Designer.vb b/instat/dlgOneVariableSummarise.Designer.vb
index 69e59658771..6554ebb703e 100644
--- a/instat/dlgOneVariableSummarise.Designer.vb
+++ b/instat/dlgOneVariableSummarise.Designer.vb
@@ -48,7 +48,7 @@ Partial Class dlgOneVariableSummarise
         Me.rdoVariable = New System.Windows.Forms.RadioButton()
         Me.rdoSummary = New System.Windows.Forms.RadioButton()
         Me.grpColumns = New System.Windows.Forms.GroupBox()
-        Me.cmdFormatTable = New System.Windows.Forms.Button()
+        Me.ucrPnlColumnFactor = New instat.UcrPanel()
         Me.ucrReorderSummary = New instat.ucrReorder()
         Me.ucrSaveSummary = New instat.ucrSave()
         Me.ucrPnlSummaries = New instat.UcrPanel()
@@ -57,9 +57,9 @@ Partial Class dlgOneVariableSummarise
         Me.ucrSelectorOneVarSummarise = New instat.ucrSelectorByDataFrameAddRemove()
         Me.ucrReceiverOneVarSummarise = New instat.ucrReceiverMultiple()
         Me.ucrBase = New instat.ucrButtons()
-        Me.ucrPnlColumnFactor = New instat.UcrPanel()
         Me.ucrChkDisplayMissing = New instat.ucrCheck()
         Me.ucrInputDisplayMissing = New instat.ucrInputComboBox()
+        Me.cmdTableOptions = New System.Windows.Forms.Button()
         Me.grpColumns.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -203,15 +203,13 @@ Partial Class dlgOneVariableSummarise
         Me.grpColumns.TabStop = False
         Me.grpColumns.Text = "Columns:"
         '
-        'cmdFormatTable
+        'ucrPnlColumnFactor
         '
-        Me.cmdFormatTable.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.cmdFormatTable.Location = New System.Drawing.Point(317, 393)
-        Me.cmdFormatTable.Name = "cmdFormatTable"
-        Me.cmdFormatTable.Size = New System.Drawing.Size(104, 23)
-        Me.cmdFormatTable.TabIndex = 37
-        Me.cmdFormatTable.Text = "Format Table..."
-        Me.cmdFormatTable.UseVisualStyleBackColor = True
+        Me.ucrPnlColumnFactor.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.ucrPnlColumnFactor.Location = New System.Drawing.Point(6, 12)
+        Me.ucrPnlColumnFactor.Name = "ucrPnlColumnFactor"
+        Me.ucrPnlColumnFactor.Size = New System.Drawing.Size(137, 65)
+        Me.ucrPnlColumnFactor.TabIndex = 29
         '
         'ucrReorderSummary
         '
@@ -296,14 +294,6 @@ Partial Class dlgOneVariableSummarise
         Me.ucrBase.Size = New System.Drawing.Size(408, 52)
         Me.ucrBase.TabIndex = 11
         '
-        'ucrPnlColumnFactor
-        '
-        Me.ucrPnlColumnFactor.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.ucrPnlColumnFactor.Location = New System.Drawing.Point(6, 12)
-        Me.ucrPnlColumnFactor.Name = "ucrPnlColumnFactor"
-        Me.ucrPnlColumnFactor.Size = New System.Drawing.Size(137, 65)
-        Me.ucrPnlColumnFactor.TabIndex = 29
-        '
         'ucrChkDisplayMissing
         '
         Me.ucrChkDisplayMissing.AutoSize = True
@@ -325,13 +315,25 @@ Partial Class dlgOneVariableSummarise
         Me.ucrInputDisplayMissing.Size = New System.Drawing.Size(74, 21)
         Me.ucrInputDisplayMissing.TabIndex = 35
         '
+        'cmdTableOptions
+        '
+        Me.cmdTableOptions.AutoSize = True
+        Me.cmdTableOptions.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.cmdTableOptions.Location = New System.Drawing.Point(302, 393)
+        Me.cmdTableOptions.Name = "cmdTableOptions"
+        Me.cmdTableOptions.Size = New System.Drawing.Size(114, 23)
+        Me.cmdTableOptions.TabIndex = 38
+        Me.cmdTableOptions.Tag = "Format Table"
+        Me.cmdTableOptions.Text = "Table Options..."
+        Me.cmdTableOptions.UseVisualStyleBackColor = True
+        '
         'dlgOneVariableSummarise
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
         Me.AutoSize = True
         Me.ClientSize = New System.Drawing.Size(470, 495)
-        Me.Controls.Add(Me.cmdFormatTable)
+        Me.Controls.Add(Me.cmdTableOptions)
         Me.Controls.Add(Me.ucrReorderSummary)
         Me.Controls.Add(Me.ucrSaveSummary)
         Me.Controls.Add(Me.cmdMissingOptions)
@@ -386,5 +388,5 @@ Partial Class dlgOneVariableSummarise
     Friend WithEvents ucrChkDisplayMissing As ucrCheck
     Friend WithEvents grpColumns As GroupBox
     Friend WithEvents ucrReorderSummary As ucrReorder
-    Friend WithEvents cmdFormatTable As Button
+    Friend WithEvents cmdTableOptions As Button
 End Class
\ No newline at end of file
diff --git a/instat/dlgOneVariableSummarise.vb b/instat/dlgOneVariableSummarise.vb
index c973af6015f..56a6de3949f 100644
--- a/instat/dlgOneVariableSummarise.vb
+++ b/instat/dlgOneVariableSummarise.vb
@@ -234,6 +234,7 @@ Public Class dlgOneVariableSummarise
 
         clsGtFunction.SetPackageName("gt")
         clsGtFunction.SetRCommand("gt")
+        clsPipeOperator.AddParameter(strParameterName:="gt", clsRFunctionParameter:=clsGtFunction, iPosition:=2, bIncludeArgumentName:=False)
 
         clsSummaryOperator.SetOperation("%>%")
         clsSummaryOperator.AddParameter("tableFun", clsRFunctionParameter:=clsSummaryTableFunction, iPosition:=0)
@@ -399,7 +400,7 @@ Public Class dlgOneVariableSummarise
             ucrSaveSummary.SetCheckBoxText("Store Summary")
         End If
         cmdSummaries.Visible = rdoCustomised.Checked
-        cmdFormatTable.Visible = rdoCustomised.Checked
+        cmdTableOptions.Visible = rdoCustomised.Checked
     End Sub
 
     Private Sub FillListView()
@@ -432,16 +433,9 @@ Public Class dlgOneVariableSummarise
         Next
     End Sub
 
-    Private Sub cmdFormatTable_Click(sender As Object, e As EventArgs) Handles cmdFormatTable.Click
-        sdgFormatSummaryTables.SetRCode(clsNewTableTitleFunction:=clsTableTitleFunction, clsNewTabFootnoteTitleFunction:=clsTabFootnoteTitleFunction, clsNewTableSourcenoteFunction:=clsTableSourcenoteFunction, clsNewDummyFunction:=clsDummyFunction,
-                                     clsNewFootnoteCellFunction:=clsFootnoteCellFunction, clsNewSecondFootnoteCellBodyFunction:=clsSecondFootnoteCellBodyFunction,
-                                   clsNewPipeOperator:=clsPipeOperator, clsNewFootnoteTitleLocationFunction:=clsFootnoteTitleLocationFunction, clsNewFootnoteCellBodyFunction:=clsFootnoteCellBodyFunction,
-                                   clsNewFootnoteSubtitleLocationFunction:=clsFootnoteSubtitleLocationFunction, clsNewTabFootnoteSubtitleFunction:=clsTabFootnoteSubtitleFunction, clsNewJoiningOperator:=clsJoiningPipeOperator,
-                                   clsNewMutableOperator:=clsSummaryOperator, clsNewSecondFootnoteCellFunction:=clsSecondFootnoteCellFunction,
-                                   clsNewTabStyleCellTextFunction:=clsTabStyleCellTextFunction, clsNewTabStyleFunction:=clsTabStyleFunction, clsNewTabStylePxFunction:=clsTabStylePxFunction, clsNewThemesTabOptionFunction:=clsThemesTabOptionsFunction,
-                                   clsNewgtExtraThemesFunction:=clsgtExtraThemesFunction, bReset:=bResetFormatSubdialog)
-
-        sdgFormatSummaryTables.ShowDialog()
+    Private Sub cmdTableOptions_Click(sender As Object, e As EventArgs) Handles cmdTableOptions.Click
+        sdgTableOptions.Setup(ucrSelectorOneVarSummarise.strCurrentDataFrame, clsPipeOperator)
+        sdgTableOptions.ShowDialog(Me)
         bResetFormatSubdialog = False
     End Sub
 

From 9009932f837a9f71333e734b9450703fc1149e42 Mon Sep 17 00:00:00 2001
From: Derrick Agorhom <76208189+derekagorhom@users.noreply.github.com>
Date: Thu, 12 Dec 2024 10:18:08 +0100
Subject: [PATCH 2/5] Code changes to the tables function

---
 instat/dlgOneVariableSummarise.vb | 97 +++++++++----------------------
 1 file changed, 27 insertions(+), 70 deletions(-)

diff --git a/instat/dlgOneVariableSummarise.vb b/instat/dlgOneVariableSummarise.vb
index 56a6de3949f..b8f7d0138d7 100644
--- a/instat/dlgOneVariableSummarise.vb
+++ b/instat/dlgOneVariableSummarise.vb
@@ -31,11 +31,9 @@ Public Class dlgOneVariableSummarise
         clsConcFunction, clsSummaryTableFunction, clsDummyFunction,
         clsSkimrFunction, clsPivotWiderFunction As New RFunction
 
-    Private clsTableTitleFunction, clsTabFootnoteTitleFunction, clsTableSourcenoteFunction, clsFootnoteTitleLocationFunction,
-        clsFootnoteSubtitleLocationFunction, clsTabFootnoteSubtitleFunction, clsFootnoteCellFunction, clsFootnoteCellBodyFunction,
-            clsSecondFootnoteCellFunction, clsSecondFootnoteCellBodyFunction, clsTabStyleFunction, clsTabStyleCellTextFunction,
-            clsTabStylePxFunction, clsTabStyleCellTitleFunction, clsThemesTabOptionsFunction, clsgtExtraThemesFunction As New RFunction
     Private clsPipeOperator, clsJoiningPipeOperator As New ROperator
+    Private clsGetGtTableFunction, clsSaveGtRFunction As New RFunction
+    Private clsGtTableROperator, clsBaseOperator As New ROperator
     Private clsSummaryOperator As New ROperator
     Private bResetSubdialog As Boolean = False
     Private bResetFormatSubdialog As Boolean = False
@@ -136,81 +134,35 @@ Public Class dlgOneVariableSummarise
         clsSummaryOperator = New ROperator
         clsPivotWiderFunction = New RFunction
 
-        clsTableTitleFunction = New RFunction
-        clsTabFootnoteTitleFunction = New RFunction
-        clsTableSourcenoteFunction = New RFunction
-        clsFootnoteTitleLocationFunction = New RFunction
-        clsFootnoteSubtitleLocationFunction = New RFunction
+
         clsPipeOperator = New ROperator
-        clsTabFootnoteSubtitleFunction = New RFunction
-        clsFootnoteCellBodyFunction = New RFunction
-        clsSecondFootnoteCellBodyFunction = New RFunction
-        clsFootnoteCellFunction = New RFunction
-        clsSecondFootnoteCellFunction = New RFunction
-        clsTabStyleFunction = New RFunction
-        clsTabStyleCellTextFunction = New RFunction
-        clsTabStylePxFunction = New RFunction
-        clsTabStyleCellTitleFunction = New RFunction
-        clsJoiningPipeOperator = New ROperator
-        clsThemesTabOptionsFunction = New RFunction
-        clsgtExtraThemesFunction = New RFunction
+
+        clsGtTableROperator = New ROperator
+        clsBaseOperator = New ROperator
+        clsGetGtTableFunction = New RFunction
+        clsSaveGtRFunction = New RFunction
 
         ucrSelectorOneVarSummarise.Reset()
 
         clsPipeOperator.SetOperation("%>%")
         clsPipeOperator.bBrackets = False
 
-        clsThemesTabOptionsFunction.SetPackageName("gt")
-        clsThemesTabOptionsFunction.SetRCommand("tab_options")
-
-        clsgtExtraThemesFunction.SetPackageName("gtExtras")
-
-        clsTabStyleFunction.SetRCommand("tab_style")
-        clsTabStyleFunction.SetPackageName("gt")
-        clsTabStyleFunction.AddParameter("style", clsRFunctionParameter:=clsTabStyleCellTextFunction, iPosition:=0)
-        clsTabStyleFunction.AddParameter("location", clsRFunctionParameter:=clsTabStyleCellTitleFunction, iPosition:=1)
-
-        clsTabStyleCellTitleFunction.SetPackageName("gt")
-        clsTabStyleCellTitleFunction.SetRCommand("cells_title")
-        clsTabStyleCellTitleFunction.AddParameter("groups", Chr(34) & "title" & Chr(34), iPosition:=0)
-
-        clsTabStyleCellTextFunction.SetPackageName("gt")
-        clsTabStyleCellTextFunction.SetRCommand("cell_text")
-        clsTabStyleCellTextFunction.AddParameter("size", clsRFunctionParameter:=clsTabStylePxFunction, iPosition:=0)
-
-        clsTabStylePxFunction.SetPackageName("gt")
-        clsTabStylePxFunction.SetRCommand("px")
-        clsTabStylePxFunction.AddParameter("size", "18", bIncludeArgumentName:=False, iPosition:=0)
-
-        clsTableTitleFunction.SetPackageName("gt")
-        clsTableTitleFunction.SetRCommand("tab_header")
-
-        clsTabFootnoteTitleFunction.SetPackageName("gt")
-        clsTabFootnoteTitleFunction.SetRCommand("tab_footnote")
-
-        clsTabFootnoteSubtitleFunction.SetPackageName("gt")
-        clsTabFootnoteSubtitleFunction.SetRCommand("tab_footnote")
-
-        clsFootnoteCellFunction.SetPackageName("gt")
-        clsFootnoteCellFunction.SetRCommand("tab_footnote")
-
-        clsSecondFootnoteCellFunction.SetPackageName("gt")
-        clsSecondFootnoteCellFunction.SetRCommand("tab_footnote")
+        clsGetGtTableFunction.SetPackageName("gt")
+        clsGetGtTableFunction.SetRCommand("gt")
 
-        clsFootnoteTitleLocationFunction.SetPackageName("gt")
-        clsFootnoteTitleLocationFunction.SetRCommand("cells_title")
 
-        clsFootnoteSubtitleLocationFunction.SetPackageName("gt")
-        clsFootnoteSubtitleLocationFunction.SetRCommand("cells_title")
+        clsBaseOperator.SetOperation("%>%")
+        clsBaseOperator.bBrackets = False
+        clsBaseOperator.AddParameter(strParameterName:="gt_tbl_operator", clsROperatorParameter:=clsGtTableROperator, iPosition:=0, bIncludeArgumentName:=False)
+        clsBaseOperator.SetAssignToOutputObject(strRObjectToAssignTo:="last_table",
+                                                  strRObjectTypeLabelToAssignTo:=RObjectTypeLabel.Table,
+                                                  strRObjectFormatToAssignTo:=RObjectFormat.Html,
+                                                  strRDataFrameNameToAddObjectTo:=ucrSelectorOneVarSummarise.strCurrentDataFrame,
+                                                  strObjectName:="last_table")
 
-        clsTableSourcenoteFunction.SetPackageName("gt")
-        clsTableSourcenoteFunction.SetRCommand("tab_source_note")
+        ucrBase.clsRsyntax.SetBaseROperator(clsBaseOperator)
 
-        clsFootnoteCellBodyFunction.SetPackageName("gt")
-        clsFootnoteCellBodyFunction.SetRCommand("cells_body")
 
-        clsSecondFootnoteCellBodyFunction.SetPackageName("gt")
-        clsSecondFootnoteCellBodyFunction.SetRCommand("cells_body")
 
         clsSkimrFunction.SetPackageName("skimr")
         clsSkimrFunction.SetRCommand("skim_without_charts")
@@ -234,14 +186,17 @@ Public Class dlgOneVariableSummarise
 
         clsGtFunction.SetPackageName("gt")
         clsGtFunction.SetRCommand("gt")
-        clsPipeOperator.AddParameter(strParameterName:="gt", clsRFunctionParameter:=clsGtFunction, iPosition:=2, bIncludeArgumentName:=False)
+        clsGtTableROperator.SetOperation("%>%")
+        clsGtTableROperator.bBrackets = False
+        clsGtTableROperator.AddParameter("tableFun", clsRFunctionParameter:=clsSummaryTableFunction, iPosition:=0)
+        clsGtTableROperator.AddParameter(strParameterName:="gt_tbl", clsRFunctionParameter:=clsGtFunction, iPosition:=1, bIncludeArgumentName:=False)
 
         clsSummaryOperator.SetOperation("%>%")
         clsSummaryOperator.AddParameter("tableFun", clsRFunctionParameter:=clsSummaryTableFunction, iPosition:=0)
         clsSummaryOperator.AddParameter("gttbl", clsRFunctionParameter:=clsGtFunction, iPosition:=2)
 
         clsJoiningPipeOperator.SetOperation("%>%")
-        clsJoiningPipeOperator.AddParameter("mutable", clsROperatorParameter:=clsSummaryOperator, iPosition:=0)
+        clsJoiningPipeOperator.AddParameter("mutable", clsROperatorParameter:=clsGtTableROperator, iPosition:=0)
         clsJoiningPipeOperator.SetAssignToOutputObject(strRObjectToAssignTo:="last_table",
                                                strRObjectTypeLabelToAssignTo:=RObjectTypeLabel.Table,
                                                strRObjectFormatToAssignTo:=RObjectFormat.Html,
@@ -286,6 +241,8 @@ Public Class dlgOneVariableSummarise
         ucrSelectorOneVarSummarise.SetRCode(clsSummaryTableFunction, bReset)
         ucrInputDisplayMissing.SetRCode(clsSummaryTableFunction, bReset)
         ucrSaveSummary.SetRCode(clsSkimrFunction, bReset)
+        ucrSelectorOneVarSummarise.SetRCode(clsGetGtTableFunction, bReset)
+        ucrReceiverOneVarSummarise.SetRCode(clsGetGtTableFunction, bReset)
 
         If bReset Then
             ucrChkDisplayMissing.SetRCode(clsDummyFunction, bReset)
@@ -434,7 +391,7 @@ Public Class dlgOneVariableSummarise
     End Sub
 
     Private Sub cmdTableOptions_Click(sender As Object, e As EventArgs) Handles cmdTableOptions.Click
-        sdgTableOptions.Setup(ucrSelectorOneVarSummarise.strCurrentDataFrame, clsPipeOperator)
+        sdgTableOptions.Setup(ucrSelectorOneVarSummarise.strCurrentDataFrame, clsGtTableROperator)
         sdgTableOptions.ShowDialog(Me)
         bResetFormatSubdialog = False
     End Sub

From e25034813d840c1458670e801c691d1c4827ee18 Mon Sep 17 00:00:00 2001
From: Derrick Agorhom <76208189+derekagorhom@users.noreply.github.com>
Date: Thu, 12 Dec 2024 10:22:18 +0100
Subject: [PATCH 3/5] Removing unwanted code

---
 instat/dlgOneVariableSummarise.vb | 20 ++------------------
 1 file changed, 2 insertions(+), 18 deletions(-)

diff --git a/instat/dlgOneVariableSummarise.vb b/instat/dlgOneVariableSummarise.vb
index b8f7d0138d7..6887cde8cf1 100644
--- a/instat/dlgOneVariableSummarise.vb
+++ b/instat/dlgOneVariableSummarise.vb
@@ -32,8 +32,8 @@ Public Class dlgOneVariableSummarise
         clsSkimrFunction, clsPivotWiderFunction As New RFunction
 
     Private clsPipeOperator, clsJoiningPipeOperator As New ROperator
-    Private clsGetGtTableFunction, clsSaveGtRFunction As New RFunction
-    Private clsGtTableROperator, clsBaseOperator As New ROperator
+    Private clsGetGtTableFunction As New RFunction
+    Private clsGtTableROperator As New ROperator
     Private clsSummaryOperator As New ROperator
     Private bResetSubdialog As Boolean = False
     Private bResetFormatSubdialog As Boolean = False
@@ -138,9 +138,7 @@ Public Class dlgOneVariableSummarise
         clsPipeOperator = New ROperator
 
         clsGtTableROperator = New ROperator
-        clsBaseOperator = New ROperator
         clsGetGtTableFunction = New RFunction
-        clsSaveGtRFunction = New RFunction
 
         ucrSelectorOneVarSummarise.Reset()
 
@@ -150,20 +148,6 @@ Public Class dlgOneVariableSummarise
         clsGetGtTableFunction.SetPackageName("gt")
         clsGetGtTableFunction.SetRCommand("gt")
 
-
-        clsBaseOperator.SetOperation("%>%")
-        clsBaseOperator.bBrackets = False
-        clsBaseOperator.AddParameter(strParameterName:="gt_tbl_operator", clsROperatorParameter:=clsGtTableROperator, iPosition:=0, bIncludeArgumentName:=False)
-        clsBaseOperator.SetAssignToOutputObject(strRObjectToAssignTo:="last_table",
-                                                  strRObjectTypeLabelToAssignTo:=RObjectTypeLabel.Table,
-                                                  strRObjectFormatToAssignTo:=RObjectFormat.Html,
-                                                  strRDataFrameNameToAddObjectTo:=ucrSelectorOneVarSummarise.strCurrentDataFrame,
-                                                  strObjectName:="last_table")
-
-        ucrBase.clsRsyntax.SetBaseROperator(clsBaseOperator)
-
-
-
         clsSkimrFunction.SetPackageName("skimr")
         clsSkimrFunction.SetRCommand("skim_without_charts")
         clsSkimrFunction.AddParameter("data", clsRFunctionParameter:=ucrSelectorOneVarSummarise.ucrAvailableDataFrames.clsCurrDataFrame, iPosition:=0)

From 42e161e05d9a2137fe418110b76f9a4d742bbc62 Mon Sep 17 00:00:00 2001
From: Derrick Agorhom <76208189+derekagorhom@users.noreply.github.com>
Date: Thu, 12 Dec 2024 12:43:29 +0100
Subject: [PATCH 4/5] Code Changes

---
 instat/dlgOneVariableSummarise.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/instat/dlgOneVariableSummarise.vb b/instat/dlgOneVariableSummarise.vb
index 6887cde8cf1..b9a22455bcd 100644
--- a/instat/dlgOneVariableSummarise.vb
+++ b/instat/dlgOneVariableSummarise.vb
@@ -383,10 +383,10 @@ Public Class dlgOneVariableSummarise
     Private Sub Display_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrPnlColumnFactor.ControlValueChanged
         'If bRCodeSet Then
         If rdoNoColumnFactor.Checked Then
-            clsSummaryOperator.RemoveParameterByName("col_factor")
+            clsGtTableROperator.RemoveParameterByName("col_factor")
             clsDummyFunction.AddParameter("factor_cols", "NoColFactor", iPosition:=1)
         Else
-            clsSummaryOperator.AddParameter("col_factor", clsRFunctionParameter:=clsPivotWiderFunction, iPosition:=1)
+            clsGtTableROperator.AddParameter("col_factor", clsRFunctionParameter:=clsPivotWiderFunction, iPosition:=1)
             If rdoSummary.Checked Then
                 clsDummyFunction.AddParameter("factor_cols", "Sum", iPosition:=1)
                 clsPivotWiderFunction.AddParameter("names_from", "summary", iPosition:=0)

From fc270fda419ed0922fb36d94f47dc3b889a2acb8 Mon Sep 17 00:00:00 2001
From: Derrick Agorhom <76208189+derekagorhom@users.noreply.github.com>
Date: Thu, 12 Dec 2024 12:51:01 +0100
Subject: [PATCH 5/5] Code Change

---
 instat/dlgOneVariableSummarise.vb | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/instat/dlgOneVariableSummarise.vb b/instat/dlgOneVariableSummarise.vb
index b9a22455bcd..d91b5a62f91 100644
--- a/instat/dlgOneVariableSummarise.vb
+++ b/instat/dlgOneVariableSummarise.vb
@@ -34,7 +34,6 @@ Public Class dlgOneVariableSummarise
     Private clsPipeOperator, clsJoiningPipeOperator As New ROperator
     Private clsGetGtTableFunction As New RFunction
     Private clsGtTableROperator As New ROperator
-    Private clsSummaryOperator As New ROperator
     Private bResetSubdialog As Boolean = False
     Private bResetFormatSubdialog As Boolean = False
     Public strDefaultDataFrame As String = ""
@@ -131,10 +130,8 @@ Public Class dlgOneVariableSummarise
         clsGtFunction = New RFunction
         clsDummyFunction = New RFunction
         clsSkimrFunction = New RFunction
-        clsSummaryOperator = New ROperator
         clsPivotWiderFunction = New RFunction
 
-
         clsPipeOperator = New ROperator
 
         clsGtTableROperator = New ROperator
@@ -175,10 +172,6 @@ Public Class dlgOneVariableSummarise
         clsGtTableROperator.AddParameter("tableFun", clsRFunctionParameter:=clsSummaryTableFunction, iPosition:=0)
         clsGtTableROperator.AddParameter(strParameterName:="gt_tbl", clsRFunctionParameter:=clsGtFunction, iPosition:=1, bIncludeArgumentName:=False)
 
-        clsSummaryOperator.SetOperation("%>%")
-        clsSummaryOperator.AddParameter("tableFun", clsRFunctionParameter:=clsSummaryTableFunction, iPosition:=0)
-        clsSummaryOperator.AddParameter("gttbl", clsRFunctionParameter:=clsGtFunction, iPosition:=2)
-
         clsJoiningPipeOperator.SetOperation("%>%")
         clsJoiningPipeOperator.AddParameter("mutable", clsROperatorParameter:=clsGtTableROperator, iPosition:=0)
         clsJoiningPipeOperator.SetAssignToOutputObject(strRObjectToAssignTo:="last_table",