fix rowMajorAssay to maintain value order

nfdi4plants · Sep 10, 2021 · f88320f · f88320f
1 parent 23a3c33
commit f88320f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/ISADotnet/JsonIO/AssayCommonAPI.fs b/src/ISADotnet/JsonIO/AssayCommonAPI.fs
@@ -48,7 +48,9 @@ module AssayCommonAPI =
             ||> List.map2 (fun inp out ->
                 let inpCharacteristics = API.ProcessInput.tryGetCharacteristics inp |> Option.defaultValue []
                 let outCharacteristics = API.ProcessOutput.tryGetCharacteristics out |> Option.defaultValue []
-                let characteristics = Set.intersect (set inpCharacteristics) (set outCharacteristics) |> Set.toList
+                let characteristics = 
+                    let s = Set.intersect (set inpCharacteristics) (set outCharacteristics)
+                    inpCharacteristics |> List.filter (s.Contains)
                 let factors = API.ProcessOutput.tryGetFactorValues out |> Option.defaultValue []
 
                 let inputName = inp.GetName