Merge pull request #9228 from derekagorhom/Bug_Fixes_Parcood

Bug Fixes in Parallel Coordinate Plot
IDEMSInternational · Dec 3, 2024 · c39411a · c39411a
2 parents b3383be + 739ad1b
commit c39411a
Showing 1 changed file with 13 additions and 4 deletions.
diff --git a/instat/dlgParallelCoordinatePlot.vb b/instat/dlgParallelCoordinatePlot.vb
@@ -173,11 +173,14 @@ Public Class dlgParallelCoordinatePlot
         ucrSaveGraph.Reset()
         bResetSubdialog = True
 
+        clsMatchFunction.SetRCommand("match")
+        clsMatchFunction.SetAssignTo("column_numbers")
+
         clsGGParCoordFunc.SetPackageName("GGally")
         clsGGParCoordFunc.SetRCommand("ggparcoord")
-        clsGGParCoordFunc.AddParameter("columns", "column_numbers", iPosition:=1)
+        clsGGParCoordFunc.AddParameter("columns", clsRFunctionParameter:=clsMatchFunction, iPosition:=1)
         clsGGParCoordFunc.AddParameter("missing", Chr(34) & "exclude" & Chr(34), iPosition:=6)
-        clsGGParCoordFunc.AddParameter("order", clsRFunctionParameter:=clsMatchFunction, iPosition:=7)
+        'clsGGParCoordFunc.AddParameter("order", Chr(34) & "anyClass" & Chr(34), iPosition:=7)
         clsGGParCoordFunc.AddParameter("centerObsID", "1", iPosition:=8)
 
         clsBaseOperator.SetOperation("+")
@@ -199,8 +202,7 @@ Public Class dlgParallelCoordinatePlot
         clsGroupByFunction.SetPackageName("dplyr")
         clsGroupByFunction.SetRCommand("group_by")
 
-        clsMatchFunction.SetRCommand("match")
-        clsMatchFunction.SetAssignTo("column_numbers")
+
 
         clsNamesFunction.SetRCommand("names")
 
@@ -442,4 +444,11 @@ Public Class dlgParallelCoordinatePlot
         TestOkEnabled()
     End Sub
 
+    Private Sub ucrReceiverFactor_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverFactor.ControlValueChanged
+        If Not ucrReceiverFactor.IsEmpty Then
+            clsGGParCoordFunc.AddParameter("order", Chr(34) & "anyClass" & Chr(34), iPosition:=7)
+        Else
+            clsGGParCoordFunc.RemoveParameterByName("order")
+        End If
+    End Sub
 End Class