make fillmissingcells optional for addcolumns

nfdi4plants · Jan 8, 2024 · a1921ef · a1921ef
1 parent 208839a
commit a1921ef
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/ISA/ISA.Spreadsheet/AnnotationTable/ArcTable.fs b/src/ISA/ISA.Spreadsheet/AnnotationTable/ArcTable.fs
@@ -92,7 +92,7 @@ let tryFromFsWorksheet (sheet : FsWorksheet) =
             |> Seq.map CompositeColumn.fixDeprecatedIOHeader
             |> composeColumns
         ArcTable.init sheet.Name
-        |> ArcTable.addColumns compositeColumns 
+        |> ArcTable.addColumns(compositeColumns,SkipFillMissing = true)
         |> Some
     | None ->
         None

diff --git a/src/ISA/ISA/ArcTypes/ArcTable.fs b/src/ISA/ISA/ArcTypes/ArcTable.fs
@@ -243,10 +243,10 @@ type ArcTable(name: string, headers: ResizeArray<CompositeHeader>, values: Syste
         )
         if not(SkipFillMissing = Some true) then Unchecked.fillMissingCells this.Headers this.Values
 
-    static member addColumns (columns: CompositeColumn [],?index: int) =
+    static member addColumns (columns: CompositeColumn [],?index: int,?SkipFillMissing) =
         fun (table:ArcTable) ->
             let newTable = table.Copy()
-            newTable.AddColumns(columns, ?index = index)
+            newTable.AddColumns(columns, ?index = index, ?SkipFillMissing = SkipFillMissing)
             newTable
 
     // - Column API - //