add assay file data column parser

Author: HLWeil

src/ISADotNet.XLSX/AssayFile/AnnotationColumn.fs

@@ -132,6 +132,18 @@ module AnnotationColumn =
             Some h
         | _ -> None
 
+    /// Parses to ColumnHeader, if the given header describes a data file
+    let tryParseDataFileName (header:string) =
+        match ColumnHeader.fromStringHeader header with
+        | h when h.Kind = "Data File Name" -> Some h
+        | h when h.Kind = "Raw Data File" -> Some h   
+        | h when h.Kind = "Derived Data File" -> Some h  
+        | h when h.Kind = "Image File" -> Some h  
+        | _ -> None
+
+    /// Returns true, if the given header describes a data column
+    let isData header = tryParseDataFileName header |> Option.isSome 
+
     /// Returns true, if the given header describes a sample name
     let isSample header = tryParseSampleName header |> Option.isSome 
 

src/ISADotNet.XLSX/AssayFile/AnnotationNode.fs

@@ -171,6 +171,27 @@ module AnnotationNode =
                     (unitGetter |> Option.map (fun f -> f matrix i))
         )
 
+    /// If the headers of a node depict a sample name, returns a function for parsing the values of the matrix to the sample names
+    let tryGetDataFileGetter (headers:string seq) =
+        Seq.tryPick tryParseDataFileName headers
+        |> Option.map (fun h -> 
+
+            let dataType = 
+                if h.Kind = "Image File" then Some DataFile.ImageFile
+                elif h.Kind = "Raw Data File" then Some DataFile.RawDataFile
+                elif h.Kind = "Derived Data File" then Some DataFile.DerivedDataFile 
+                else None
+            let numberComment = h.Number |> Option.map (string >> (Comment.fromString "Number") >> List.singleton)
+            
+            fun (matrix : System.Collections.Generic.Dictionary<(string * int),string>) i ->
+                
+                Data.create
+                    None
+                    (Dictionary.tryGetValue (h.HeaderString,i) matrix)
+                    dataType
+                    numberComment
+        )
+
     /// If the headers of a node depict a sample name, returns a function for parsing the values of the matrix to the sample names
     let tryGetSampleNameGetter (headers:string seq) =
         Seq.tryPick tryParseSampleName headers