fix assay metadatasheet not being read correctly

Author: HLWeil

src/ISADotNet.XLSX/AssayFile/MetaData.fs

@@ -109,23 +109,25 @@ module MetaData =
 
     /// Try get assay from metadatasheet with given sheetName
     let tryGetAssay sheetName (doc : SpreadsheetDocument) = 
+        let sst = Spreadsheet.tryGetSharedStringTable doc
         match Spreadsheet.tryGetSheetBySheetName sheetName doc with
         | Some sheet -> 
             sheet
             |> SheetData.getRows
-            |> Seq.map (Row.getIndexedValues None >> Seq.map (fun (i,v) -> (int i) - 1, v))
+            |> Seq.map (Row.getIndexedValues sst >> Seq.map (fun (i,v) -> (int i) - 1, v))
             |> fromRows
             |> fun (a,p) ->
                 a
         | None -> failwithf "Metadata sheetname %s could not be found" sheetName
 
     /// Try get persons from metadatasheet with given sheetName
     let getPersons sheetName (doc : SpreadsheetDocument) = 
+        let sst = Spreadsheet.tryGetSharedStringTable doc
         match Spreadsheet.tryGetSheetBySheetName sheetName doc with
         | Some sheet -> 
             sheet
             |> SheetData.getRows
-            |> Seq.map (Row.getIndexedValues None >> Seq.map (fun (i,v) -> (int i) - 1, v))
+            |> Seq.map (Row.getIndexedValues sst >> Seq.map (fun (i,v) -> (int i) - 1, v))
             |> fromRows
             |> fun (a,p) ->
                 p
@@ -134,14 +136,15 @@ module MetaData =
     /// Replaces assay metadata from metadatasheet with given sheetName
     let overwriteWithAssayInfo sheetName assay (doc : SpreadsheetDocument) = 
 
+        let sst = Spreadsheet.tryGetSharedStringTable doc
         let workBookPart = Spreadsheet.getWorkbookPart doc
-        let newSheet = SheetData.empty()
-        
+        let newSheet = SheetData.empty()    
+
         match Spreadsheet.tryGetSheetBySheetName sheetName doc with
         | Some sheet -> 
             sheet
             |> SheetData.getRows
-            |> Seq.map (Row.getIndexedValues None >> Seq.map (fun (i,v) -> (int i) - 1, v))
+            |> Seq.map (Row.getIndexedValues sst >> Seq.map (fun (i,v) -> (int i) - 1, v))
             |> fromRows
             |> fun (_,p) ->
 
@@ -163,14 +166,15 @@ module MetaData =
     /// Replaces persons from metadatasheet with given sheetName
     let overwriteWithPersons sheetName persons (doc : SpreadsheetDocument) = 
 
+        let sst = Spreadsheet.tryGetSharedStringTable doc
         let workBookPart = Spreadsheet.getWorkbookPart doc
-        let newSheet = SheetData.empty()
-        
+        let newSheet = SheetData.empty()       
+
         match Spreadsheet.tryGetSheetBySheetName sheetName doc with
         | Some sheet -> 
             sheet
             |> SheetData.getRows
-            |> Seq.map (Row.getIndexedValues None >> Seq.map (fun (i,v) -> (int i) - 1, v))
+            |> Seq.map (Row.getIndexedValues sst >> Seq.map (fun (i,v) -> (int i) - 1, v))
             |> fromRows
             |> fun (a,_) ->            
                 toRows (Option.defaultValue Assay.empty a) persons

src/ISADotNet.XLSX/ISADotNet.XLSX.fsproj

@@ -31,7 +31,7 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="FsSpreadsheet.ExcelIO" Version="0.1.3" />
+    <PackageReference Include="FsSpreadsheet.ExcelIO" Version="0.1.4" />
   </ItemGroup>
 
   <ItemGroup>