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",