@nfdi4plants/arctrl 2.0.0-alpha.6 → 2.0.0-alpha.7

package/Json/Study.js

@@ -247,6 +247,10 @@ export function ARCtrl_ArcStudy__ArcStudy_toJsonString_Static_71136F3F(spaces) {
     };
 }
 
+export function ARCtrl_ArcStudy__ArcStudy_ToJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_ArcStudy__ArcStudy_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+
 export function ARCtrl_ArcStudy__ArcStudy_fromCompressedJsonString_Static_Z721C83C5(s) {
     try {
         const matchValue = fromString(decode(Study_decoderCompressed), s);
@@ -267,14 +271,8 @@ export function ARCtrl_ArcStudy__ArcStudy_toCompressedJsonString_Static_71136F3F
     return (obj) => toString(defaultArg(spaces, 0), encode(Study_encoderCompressed, obj));
 }
 
-/**
- * exports in json-ld format
- */
-export function ARCtrl_ArcStudy__ArcStudy_toROCrateJsonString_Static_3BA23086(assays, spaces) {
-    return (obj) => {
-        const value = Study_ROCrate_encoder(assays, obj);
-        return toString(defaultSpaces(spaces), value);
-    };
+export function ARCtrl_ArcStudy__ArcStudy_ToCompressedJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_ArcStudy__ArcStudy_toCompressedJsonString_Static_71136F3F(unwrap(spaces))(this$);
 }
 
 export function ARCtrl_ArcStudy__ArcStudy_fromROCrateJsonString_Static_Z721C83C5(s) {
@@ -287,13 +285,20 @@ export function ARCtrl_ArcStudy__ArcStudy_fromROCrateJsonString_Static_Z721C83C5
     }
 }
 
-export function ARCtrl_ArcStudy__ArcStudy_toISAJsonString_Static_3BA23086(assays, spaces) {
+/**
+ * exports in json-ld format
+ */
+export function ARCtrl_ArcStudy__ArcStudy_toROCrateJsonString_Static_3BA23086(assays, spaces) {
     return (obj) => {
-        const value = Study_ISAJson_encoder(assays, obj);
+        const value = Study_ROCrate_encoder(assays, obj);
         return toString(defaultSpaces(spaces), value);
     };
 }
 
+export function ARCtrl_ArcStudy__ArcStudy_ToROCrateJsonString_3BA23086(this$, assays, spaces) {
+    return ARCtrl_ArcStudy__ArcStudy_toROCrateJsonString_Static_3BA23086(unwrap(assays), unwrap(spaces))(this$);
+}
+
 export function ARCtrl_ArcStudy__ArcStudy_fromISAJsonString_Static_Z721C83C5(s) {
     const matchValue = fromString(Study_ISAJson_decoder, s);
     if (matchValue.tag === 1) {
@@ -304,3 +309,14 @@ export function ARCtrl_ArcStudy__ArcStudy_fromISAJsonString_Static_Z721C83C5(s)
     }
 }
 
+export function ARCtrl_ArcStudy__ArcStudy_toISAJsonString_Static_3BA23086(assays, spaces) {
+    return (obj) => {
+        const value = Study_ISAJson_encoder(assays, obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_ArcStudy__ArcStudy_ToISAJsonString_3BA23086(this$, assays, spaces) {
+    return ARCtrl_ArcStudy__ArcStudy_toISAJsonString_Static_3BA23086(unwrap(assays), unwrap(spaces))(this$);
+}
+

package/Json/Table/CellTable.js

@@ -35,6 +35,9 @@ export function encodeCell(otm, cc) {
 }
 
 export function decodeCell(ot) {
-    return object((get$) => item(get$.Required.Raw(int), ot));
+    return object((get$) => {
+        const i = get$.Required.Raw(int) | 0;
+        return item(i, ot).Copy();
+    });
 }
 

package/Json/Table/Templates.js

@@ -1,6 +1,6 @@
 import { toString } from "../../fable_modules/fable-library-js.4.16.0/Types.js";
 import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
-import { dict, datetimeUtc, guid, object, string, succeed, andThen } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { array as array_1, datetimeUtc, guid, object, string, succeed, andThen } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
 import { Template, Organisation } from "../../Core/Template.js";
 import { ArcTable_decoderCompressed, ArcTable_encoderCompressed, ArcTable_decoder, ArcTable_encoder } from "./ArcTable.js";
 import { defaultSpaces, dateTime, tryIncludeSeq } from "../Encode.js";
@@ -45,7 +45,7 @@ export function Templates_encoder(templates) {
     return new Json(6, [map(Template_encoder, templates)]);
 }
 
-export const Templates_decoder = dict(Template_decoder);
+export const Templates_decoder = array_1(Template_decoder);
 
 export function Templates_fromJsonString(jsonString) {
     try {
@@ -85,6 +85,10 @@ export function ARCtrl_Template__Template_toJsonString_Static_71136F3F(spaces) {
     return (template) => toString_2(defaultSpaces(spaces), Template_encoder(template));
 }
 
+export function ARCtrl_Template__Template_toJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_Template__Template_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+
 export function ARCtrl_Template__Template_fromCompressedJsonString_Static_Z721C83C5(s) {
     try {
         const matchValue = fromString(decode(Template_decoderCompressed), s);
@@ -105,3 +109,7 @@ export function ARCtrl_Template__Template_toCompressedJsonString_Static_71136F3F
     return (obj) => toString_2(defaultArg(spaces, 0), encode(Template_encoderCompressed, obj));
 }
 
+export function ARCtrl_Template__Template_toCompressedJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_Template__Template_toCompressedJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Spreadsheet/DataMapTable/DataMapColumn.js

@@ -1,36 +1,42 @@
 import { toFsCells, fromFsCells } from "./DataMapHeader.js";
-import { singleton as singleton_1, ofArray, item, map } from "../../fable_modules/fable-library-js.4.16.0/List.js";
-import { FsAddress__get_RowNumber } from "../../fable_modules/FsSpreadsheet.6.1.2/FsAddress.fs.js";
-import { FsRangeAddress__get_LastAddress } from "../../fable_modules/FsSpreadsheet.6.1.2/Ranges/FsRangeAddress.fs.js";
-import { FsRangeBase__get_RangeAddress } from "../../fable_modules/FsSpreadsheet.6.1.2/Ranges/FsRangeBase.fs.js";
-import { empty, exists, singleton, append, toList, map as map_1, delay, toArray } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
-import { rangeDouble } from "../../fable_modules/fable-library-js.4.16.0/Range.js";
-import { CompositeColumn } from "../../Core/Table/CompositeColumn.js";
-import { item as item_1, map as map_2 } from "../../fable_modules/fable-library-js.4.16.0/Array.js";
-import { toFsCells as toFsCells_1 } from "../AnnotationTable/CompositeCell.js";
+import { transpose, singleton, ofArray, map } from "../../fable_modules/fable-library-js.4.16.0/List.js";
+import { tryFind, singleton as singleton_1, append, delay, map as map_1, collect, toList } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
+import { distinct } from "../../fable_modules/fable-library-js.4.16.0/Seq2.js";
+import { bind, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+import { stringHash } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
+import { FsCell } from "../../fable_modules/FsSpreadsheet.6.1.2/Cells/FsCell.fs.js";
+import { DataContext__get_GeneratedBy, DataContext__get_Description, DataContext__get_ObjectType, DataContext__get_Unit, DataContext__get_Explication } from "../../Core/DataContext.js";
 
-export function fromFsColumns(columns) {
-    const patternInput = fromFsCells(map((c) => c.Item(1), columns));
-    const l = FsAddress__get_RowNumber(FsRangeAddress__get_LastAddress(FsRangeBase__get_RangeAddress(item(0, columns)))) | 0;
-    const cells_1 = toArray(delay(() => map_1((i) => patternInput[1](map((c_1) => c_1.Item(i), columns)), rangeDouble(2, 1, l))));
-    return CompositeColumn.create(patternInput[0], cells_1);
+export function setFromFsColumns(dc, columns) {
+    const cellParser = fromFsCells(map((c) => c.Item(1), columns));
+    for (let i = 0; i <= (dc.length - 1); i++) {
+        cellParser(dc[i])(map((c_1) => c_1.Item(i + 2), columns));
+    }
+    return dc;
 }
 
-export function toFsColumns(column) {
-    const isTerm = column.Header.IsTermColumn;
-    const isData = column.Header.IsDataColumn;
-    const header = toFsCells(column.Header);
-    const cells = map_2((cell) => toFsCells_1(isTerm, false, cell), column.Cells);
-    if (isTerm) {
-        return ofArray([toList(delay(() => append(singleton(item(0, header)), delay(() => map_1((i) => item(0, item_1(i, cells)), rangeDouble(0, 1, column.Cells.length - 1)))))), toList(delay(() => append(singleton(item(1, header)), delay(() => map_1((i_1) => item(1, item_1(i_1, cells)), rangeDouble(0, 1, column.Cells.length - 1)))))), toList(delay(() => append(singleton(item(2, header)), delay(() => map_1((i_2) => item(2, item_1(i_2, cells)), rangeDouble(0, 1, column.Cells.length - 1))))))]);
-    }
-    else if (isData) {
-        const hasFormat = exists((c) => (c.AsData.Format != null), column.Cells);
-        const hasSelectorFormat = exists((c_1) => (c_1.AsData.SelectorFormat != null), column.Cells);
-        return toList(delay(() => append(singleton(toList(delay(() => append(singleton(item(0, header)), delay(() => map_1((i_3) => item(0, item_1(i_3, cells)), rangeDouble(0, 1, column.Cells.length - 1))))))), delay(() => append(hasFormat ? singleton(toList(delay(() => append(singleton(item(1, header)), delay(() => map_1((i_4) => item(1, item_1(i_4, cells)), rangeDouble(0, 1, column.Cells.length - 1))))))) : empty(), delay(() => (hasSelectorFormat ? singleton(toList(delay(() => append(singleton(item(2, header)), delay(() => map_1((i_5) => item(2, item_1(i_5, cells)), rangeDouble(0, 1, column.Cells.length - 1))))))) : empty())))))));
-    }
-    else {
-        return singleton_1(toList(delay(() => append(singleton(item(0, header)), delay(() => map_1((i_6) => item(0, item_1(i_6, cells)), rangeDouble(0, 1, column.Cells.length - 1)))))));
-    }
+export function toFsColumns(dc) {
+    const commentKeys = toList(distinct(collect((dc_1) => map_1((c) => defaultArg(c.Name, ""), dc_1.Comments), dc), {
+        Equals: (x, y) => (x === y),
+        GetHashCode: stringHash,
+    }));
+    const headers = toFsCells(commentKeys);
+    const createTerm = (oa) => {
+        if (oa == null) {
+            return ofArray([new FsCell(""), new FsCell(""), new FsCell("")]);
+        }
+        else {
+            const oa_1 = oa;
+            return ofArray([new FsCell(defaultArg(oa_1.Name, "")), new FsCell(defaultArg(oa_1.TermSourceREF, "")), new FsCell(defaultArg(oa_1.TermAccessionNumber, ""))]);
+        }
+    };
+    const createText = (s) => singleton(new FsCell(defaultArg(s, "")));
+    return transpose(toList(delay(() => append(singleton_1(headers), delay(() => map_1((dc_4) => {
+        const dc_3 = dc_4;
+        return toList(delay(() => {
+            let dc_2;
+            return append((dc_2 = dc_3, ofArray([new FsCell(defaultArg(dc_2.Name, "")), new FsCell(defaultArg(dc_2.Format, "")), new FsCell(defaultArg(dc_2.SelectorFormat, ""))])), delay(() => append(createTerm(DataContext__get_Explication(dc_3)), delay(() => append(createTerm(DataContext__get_Unit(dc_3)), delay(() => append(createTerm(DataContext__get_ObjectType(dc_3)), delay(() => append(createText(DataContext__get_Description(dc_3)), delay(() => append(createText(DataContext__get_GeneratedBy(dc_3)), delay(() => map((key) => (new FsCell(defaultArg(bind((c_2) => c_2.Value, tryFind((c_1) => (defaultArg(c_1.Name, "") === key), dc_3.Comments)), ""))), commentKeys)))))))))))));
+        }));
+    }, dc))))));
 }
 

package/Spreadsheet/DataMapTable/DataMapHeader.js

@@ -1,16 +1,36 @@
-import { singleton, ofArray, tryFindIndex, tail, head, isEmpty, map } from "../../fable_modules/fable-library-js.4.16.0/List.js";
-import { dataFromFsCells, freeTextFromFsCells, termFromFsCells } from "../AnnotationTable/CompositeCell.js";
-import { DataMapAux_generatedByHeader, DataMapAux_descriptionHeader, DataMapAux_objectTypeHeader, DataMapAux_unitHeader, DataMapAux_explicationHeader } from "../../Core/Table/DataMap.js";
+import { tryFindIndex, tail, head, isEmpty, item, map } from "../../fable_modules/fable-library-js.4.16.0/List.js";
 import { map as map_1 } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
-import { CompositeHeader, IOType } from "../../Core/Table/CompositeHeader.js";
-import { printf, toFail } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { OntologyAnnotation } from "../../Core/OntologyAnnotation.js";
+import { Data } from "../../Core/Data.js";
+import { DataContext__set_GeneratedBy_6DFDD678, DataContext__set_Description_6DFDD678, DataContext__set_ObjectType_279AAFF2, DataContext__set_Unit_279AAFF2, DataContext__set_Explication_279AAFF2 } from "../../Core/DataContext.js";
+import { Comment$ } from "../../Core/Comment.js";
+import { ActivePatterns_$007CComment$007C_$007C } from "../../Core/Helper/Regex.js";
+import { printf, toFail, join } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { map as map_2, append, delay, toList } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
 import { FsCell } from "../../fable_modules/FsSpreadsheet.6.1.2/Cells/FsCell.fs.js";
-import { equals } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
 
-export function ActivePattern_$007CTerm$007C_$007C(categoryString, categoryHeader, cells) {
+export function ActivePattern_ontologyAnnotationFromFsCells(tsrCol, tanCol, cells) {
+    const cellValues = map((c) => c.ValueAsString(), cells);
+    const tsr = map_1((i) => item(i, cellValues), tsrCol);
+    const tan = map_1((i_1) => item(i_1, cellValues), tanCol);
+    return new OntologyAnnotation(item(0, cellValues), tsr, tan);
+}
+
+export function ActivePattern_freeTextFromFsCells(cells) {
+    return item(0, map((c) => c.ValueAsString(), cells));
+}
+
+export function ActivePattern_dataFromFsCells(format, selectorFormat, cells) {
+    const cellValues = map((c) => c.ValueAsString(), cells);
+    const format_1 = map_1((i) => item(i, cellValues), format);
+    const selectorFormat_1 = map_1((i_1) => item(i_1, cellValues), selectorFormat);
+    return new Data(void 0, item(0, cellValues), void 0, format_1, selectorFormat_1);
+}
+
+export function ActivePattern_$007CTerm$007C_$007C(categoryString, cells) {
     const $007CAC$007C_$007C = (s) => {
         if (s === categoryString) {
-            return categoryHeader;
+            return 1;
         }
         else {
             return void 0;
@@ -54,7 +74,7 @@ export function ActivePattern_$007CTerm$007C_$007C(categoryString, categoryHeade
     }
     switch (matchResult) {
         case 0:
-            return [header, (cells_1) => termFromFsCells(void 0, void 0, cells_1)];
+            return (cells_1) => ActivePattern_ontologyAnnotationFromFsCells(void 0, void 0, cells_1);
         default: {
             let matchResult_1, header_1;
             if (!isEmpty(cellValues)) {
@@ -97,7 +117,7 @@ export function ActivePattern_$007CTerm$007C_$007C(categoryString, categoryHeade
             }
             switch (matchResult_1) {
                 case 0:
-                    return [header_1, (cells_2) => termFromFsCells(1, 2, cells_2)];
+                    return (cells_2) => ActivePattern_ontologyAnnotationFromFsCells(1, 2, cells_2);
                 default: {
                     let matchResult_2, header_2;
                     if (!isEmpty(cellValues)) {
@@ -140,7 +160,7 @@ export function ActivePattern_$007CTerm$007C_$007C(categoryString, categoryHeade
                     }
                     switch (matchResult_2) {
                         case 0:
-                            return [header_2, (cells_3) => termFromFsCells(2, 1, cells_3)];
+                            return (cells_3) => ActivePattern_ontologyAnnotationFromFsCells(2, 1, cells_3);
                         default:
                             return void 0;
                     }
@@ -151,10 +171,13 @@ export function ActivePattern_$007CTerm$007C_$007C(categoryString, categoryHeade
 }
 
 export function ActivePattern_$007CExplication$007C_$007C(cells) {
-    const activePatternResult = ActivePattern_$007CTerm$007C_$007C("Explication", DataMapAux_explicationHeader, cells);
+    const activePatternResult = ActivePattern_$007CTerm$007C_$007C("Explication", cells);
     if (activePatternResult != null) {
         const r = activePatternResult;
-        return r;
+        return (dc) => ((cells_1) => {
+            DataContext__set_Explication_279AAFF2(dc, r(cells_1));
+            return dc;
+        });
     }
     else {
         return void 0;
@@ -162,10 +185,13 @@ export function ActivePattern_$007CExplication$007C_$007C(cells) {
 }
 
 export function ActivePattern_$007CUnit$007C_$007C(cells) {
-    const activePatternResult = ActivePattern_$007CTerm$007C_$007C("Unit", DataMapAux_unitHeader, cells);
+    const activePatternResult = ActivePattern_$007CTerm$007C_$007C("Unit", cells);
     if (activePatternResult != null) {
         const r = activePatternResult;
-        return r;
+        return (dc) => ((cells_1) => {
+            DataContext__set_Unit_279AAFF2(dc, r(cells_1));
+            return dc;
+        });
     }
     else {
         return void 0;
@@ -173,10 +199,13 @@ export function ActivePattern_$007CUnit$007C_$007C(cells) {
 }
 
 export function ActivePattern_$007CObjectType$007C_$007C(cells) {
-    const activePatternResult = ActivePattern_$007CTerm$007C_$007C("Object Type", DataMapAux_objectTypeHeader, cells);
+    const activePatternResult = ActivePattern_$007CTerm$007C_$007C("Object Type", cells);
     if (activePatternResult != null) {
         const r = activePatternResult;
-        return r;
+        return (dc) => ((cells_1) => {
+            DataContext__set_ObjectType_279AAFF2(dc, r(cells_1));
+            return dc;
+        });
     }
     else {
         return void 0;
@@ -204,7 +233,10 @@ export function ActivePattern_$007CDescription$007C_$007C(cells) {
     }
     switch (matchResult) {
         case 0:
-            return [DataMapAux_descriptionHeader, freeTextFromFsCells];
+            return (dc) => ((cells_1) => {
+                DataContext__set_Description_6DFDD678(dc, ActivePattern_freeTextFromFsCells(cells_1));
+                return dc;
+            });
         default:
             return void 0;
     }
@@ -231,7 +263,10 @@ export function ActivePattern_$007CGeneratedBy$007C_$007C(cells) {
     }
     switch (matchResult) {
         case 0:
-            return [DataMapAux_generatedByHeader, freeTextFromFsCells];
+            return (dc) => ((cells_1) => {
+                DataContext__set_GeneratedBy_6DFDD678(dc, ActivePattern_freeTextFromFsCells(cells_1));
+                return dc;
+            });
         default:
             return void 0;
     }
@@ -253,23 +288,60 @@ export function ActivePattern_$007CData$007C_$007C(cells) {
         matchResult = 1;
     }
     switch (matchResult) {
-        case 0: {
-            const format = map_1((y) => (1 + y), tryFindIndex((s) => (s.indexOf("Data Format") === 0), cols));
-            const selectorFormat = map_1((y_1) => (1 + y_1), tryFindIndex((s_1) => (s_1.indexOf("Data Selector Format") === 0), cols));
-            return [new CompositeHeader(11, [new IOType(2, [])]), (cells_1) => dataFromFsCells(format, selectorFormat, cells_1)];
+        case 0:
+            return (dc) => ((cells_1) => {
+                const d = ActivePattern_dataFromFsCells(map_1((y) => (1 + y), tryFindIndex((s) => (s.indexOf("Data Format") === 0), cols)), map_1((y_1) => (1 + y_1), tryFindIndex((s_1) => (s_1.indexOf("Data Selector Format") === 0), cols)), cells_1);
+                dc.FilePath = d.FilePath;
+                dc.Selector = d.Selector;
+                dc.Format = d.Format;
+                dc.SelectorFormat = d.SelectorFormat;
+                return dc;
+            });
+        default:
+            return void 0;
+    }
+}
+
+export function ActivePattern_$007CComment$007C_$007C(cells) {
+    const cellValues = map((c) => c.ValueAsString(), cells);
+    let matchResult, key;
+    if (!isEmpty(cellValues)) {
+        const activePatternResult = ActivePatterns_$007CComment$007C_$007C(head(cellValues));
+        if (activePatternResult != null) {
+            if (isEmpty(tail(cellValues))) {
+                matchResult = 0;
+                key = activePatternResult;
+            }
+            else {
+                matchResult = 1;
+            }
+        }
+        else {
+            matchResult = 1;
         }
+    }
+    else {
+        matchResult = 1;
+    }
+    switch (matchResult) {
+        case 0:
+            return (dc) => ((cells_1) => {
+                const comment = item(0, map((c_1) => c_1.ValueAsString(), cells_1));
+                void (dc.Comments.push(Comment$.create(key, comment)));
+                return dc;
+            });
         default:
             return void 0;
     }
 }
 
-export function ActivePattern_$007CFreeText$007C_$007C(cells) {
+export function ActivePattern_$007CFreetext$007C_$007C(cells) {
     const cellValues = map((c) => c.ValueAsString(), cells);
-    let matchResult, text;
+    let matchResult, key;
     if (!isEmpty(cellValues)) {
         if (isEmpty(tail(cellValues))) {
             matchResult = 0;
-            text = head(cellValues);
+            key = head(cellValues);
         }
         else {
             matchResult = 1;
@@ -280,56 +352,68 @@ export function ActivePattern_$007CFreeText$007C_$007C(cells) {
     }
     switch (matchResult) {
         case 0:
-            return [new CompositeHeader(13, [text]), freeTextFromFsCells];
+            return (dc) => ((cells_1) => {
+                const comment = item(0, map((c_1) => c_1.ValueAsString(), cells_1));
+                void (dc.Comments.push(Comment$.create(key, comment)));
+                return dc;
+            });
         default:
             return void 0;
     }
 }
 
 export function fromFsCells(cells) {
-    const activePatternResult = ActivePattern_$007CData$007C_$007C(cells);
+    let matchResult, r;
+    const activePatternResult = ActivePattern_$007CExplication$007C_$007C(cells);
     if (activePatternResult != null) {
-        const d = activePatternResult;
-        return d;
+        matchResult = 0;
+        r = activePatternResult;
     }
     else {
-        const activePatternResult_1 = ActivePattern_$007CExplication$007C_$007C(cells);
+        const activePatternResult_1 = ActivePattern_$007CUnit$007C_$007C(cells);
         if (activePatternResult_1 != null) {
-            const e = activePatternResult_1;
-            return e;
+            matchResult = 0;
+            r = activePatternResult_1;
         }
         else {
-            const activePatternResult_2 = ActivePattern_$007CUnit$007C_$007C(cells);
+            const activePatternResult_2 = ActivePattern_$007CObjectType$007C_$007C(cells);
             if (activePatternResult_2 != null) {
-                const u = activePatternResult_2;
-                return u;
+                matchResult = 0;
+                r = activePatternResult_2;
             }
             else {
-                const activePatternResult_3 = ActivePattern_$007CObjectType$007C_$007C(cells);
+                const activePatternResult_3 = ActivePattern_$007CDescription$007C_$007C(cells);
                 if (activePatternResult_3 != null) {
-                    const ot = activePatternResult_3;
-                    return ot;
+                    matchResult = 0;
+                    r = activePatternResult_3;
                 }
                 else {
-                    const activePatternResult_4 = ActivePattern_$007CDescription$007C_$007C(cells);
+                    const activePatternResult_4 = ActivePattern_$007CGeneratedBy$007C_$007C(cells);
                     if (activePatternResult_4 != null) {
-                        const d_1 = activePatternResult_4;
-                        return d_1;
+                        matchResult = 0;
+                        r = activePatternResult_4;
                     }
                     else {
-                        const activePatternResult_5 = ActivePattern_$007CGeneratedBy$007C_$007C(cells);
+                        const activePatternResult_5 = ActivePattern_$007CData$007C_$007C(cells);
                         if (activePatternResult_5 != null) {
-                            const gb = activePatternResult_5;
-                            return gb;
+                            matchResult = 0;
+                            r = activePatternResult_5;
                         }
                         else {
-                            const activePatternResult_6 = ActivePattern_$007CFreeText$007C_$007C(cells);
+                            const activePatternResult_6 = ActivePattern_$007CComment$007C_$007C(cells);
                             if (activePatternResult_6 != null) {
-                                const ft = activePatternResult_6;
-                                return ft;
+                                matchResult = 0;
+                                r = activePatternResult_6;
                             }
                             else {
-                                return toFail(printf("Could not parse header group %O"))(cells);
+                                const activePatternResult_7 = ActivePattern_$007CFreetext$007C_$007C(cells);
+                                if (activePatternResult_7 != null) {
+                                    matchResult = 0;
+                                    r = activePatternResult_7;
+                                }
+                                else {
+                                    matchResult = 1;
+                                }
                             }
                         }
                     }
@@ -337,81 +421,21 @@ export function fromFsCells(cells) {
             }
         }
     }
-}
-
-export function toFsCells(header) {
-    let matchResult, h_9, h_10, h_11, text;
-    switch (header.tag) {
-        case 11: {
-            if (header.fields[0].tag === 2) {
-                matchResult = 0;
-            }
-            else if (equals(header, DataMapAux_explicationHeader)) {
-                matchResult = 1;
-                h_9 = header;
-            }
-            else if (equals(header, DataMapAux_unitHeader)) {
-                matchResult = 2;
-                h_10 = header;
-            }
-            else if (equals(header, DataMapAux_objectTypeHeader)) {
-                matchResult = 3;
-                h_11 = header;
-            }
-            else {
-                matchResult = 5;
-            }
-            break;
-        }
-        case 13: {
-            if (equals(header, DataMapAux_explicationHeader)) {
-                matchResult = 1;
-                h_9 = header;
-            }
-            else if (equals(header, DataMapAux_unitHeader)) {
-                matchResult = 2;
-                h_10 = header;
-            }
-            else if (equals(header, DataMapAux_objectTypeHeader)) {
-                matchResult = 3;
-                h_11 = header;
-            }
-            else {
-                matchResult = 4;
-                text = header.fields[0];
-            }
-            break;
-        }
-        default:
-            if (equals(header, DataMapAux_explicationHeader)) {
-                matchResult = 1;
-                h_9 = header;
-            }
-            else if (equals(header, DataMapAux_unitHeader)) {
-                matchResult = 2;
-                h_10 = header;
-            }
-            else if (equals(header, DataMapAux_objectTypeHeader)) {
-                matchResult = 3;
-                h_11 = header;
-            }
-            else {
-                matchResult = 5;
-            }
-    }
     switch (matchResult) {
         case 0:
-            return ofArray([new FsCell("Data"), new FsCell("Data Format"), new FsCell("Data Selector Format")]);
-        case 1:
-            return ofArray([new FsCell("Explication"), new FsCell("Term Source REF"), new FsCell("Term Accession Number")]);
-        case 2:
-            return ofArray([new FsCell("Unit"), new FsCell("Term Source REF"), new FsCell("Term Accession Number")]);
-        case 3:
-            return ofArray([new FsCell("Object Type"), new FsCell("Term Source REF"), new FsCell("Term Accession Number")]);
-        case 4:
-            return singleton(new FsCell(text));
-        default:
-            return toFail(printf("Could not parse DataMap header %O."))(header);
+            return (dc) => ((cells_1) => r(dc)(cells_1));
+        default: {
+            const arg = join(", ", map((c) => c.ValueAsString(), cells));
+            const clo_1 = toFail(printf("Could not parse data map column: %s"))(arg);
+            return (arg_1) => {
+                const clo_2 = clo_1(arg_1);
+                return clo_2;
+            };
+        }
     }
 }
 
+export function toFsCells(commentKeys) {
+    return toList(delay(() => append([new FsCell("Data"), new FsCell("Data Format"), new FsCell("Data Selector Format")], delay(() => append([new FsCell("Explication"), new FsCell("Term Source REF"), new FsCell("Term Accession Number")], delay(() => append([new FsCell("Unit"), new FsCell("Term Source REF"), new FsCell("Term Accession Number")], delay(() => append([new FsCell("Object Type"), new FsCell("Term Source REF"), new FsCell("Term Accession Number")], delay(() => append([new FsCell("Description")], delay(() => append([new FsCell("Generated By")], delay(() => map_2((ck) => (new FsCell(ck)), commentKeys)))))))))))))));
+}
+

package/Spreadsheet/DataMapTable/DataMapTable.js

@@ -1,11 +1,12 @@
-import { iterateIndexed, head, length, sortBy, collect, map, toArray, exists, ofArray } from "../../fable_modules/fable-library-js.4.16.0/List.js";
-import { classifyColumnOrder, Aux_List_groupWhen } from "../AnnotationTable/ArcTable.js";
-import { toList, tryFind } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
-import { toFsColumns, fromFsColumns } from "./DataMapColumn.js";
+import { iterateIndexed, head, length, iterate, exists, ofArray } from "../../fable_modules/fable-library-js.4.16.0/List.js";
+import { Aux_List_groupWhen } from "../AnnotationTable/ArcTable.js";
+import { toList, map, delay, toArray, item, tryFind } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
+import { DataContext_$ctor_Z2FD70A12 } from "../../Core/DataContext.js";
+import { rangeDouble } from "../../fable_modules/fable-library-js.4.16.0/Range.js";
+import { toFsColumns, setFromFsColumns } from "./DataMapColumn.js";
 import { printf, toFail } from "../../fable_modules/fable-library-js.4.16.0/String.js";
-import { DataMap__get_Table, DataMap_init, DataMap_addColumns_6369C010 } from "../../Core/Table/DataMap.js";
+import { DataMap__get_DataContexts, DataMap_$ctor_4E3220A7 } from "../../Core/Table/DataMap.js";
 import { FsWorksheet } from "../../fable_modules/FsSpreadsheet.6.1.2/FsWorksheet.fs.js";
-import { comparePrimitives } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
 import { FsRangeAddress_$ctor_7E77A4A0 } from "../../fable_modules/FsSpreadsheet.6.1.2/Ranges/FsRangeAddress.fs.js";
 import { FsAddress_$ctor_Z37302880 } from "../../fable_modules/FsSpreadsheet.6.1.2/FsAddress.fs.js";
 import { Dictionary_tryGet } from "../../fable_modules/FsSpreadsheet.6.1.2/Cells/FsCellsCollection.fs.js";
@@ -32,7 +33,12 @@ export function tryDataMapTable(sheet) {
  * Groups and parses a collection of single columns into the according ISA composite columns
  */
 export function composeColumns(columns) {
-    return toArray(map(fromFsColumns, groupColumnsByHeader(toList(columns))));
+    const l = (item(0, columns).MaxRowIndex - 1) | 0;
+    const dc = Array.from(toArray(delay(() => map((i) => DataContext_$ctor_Z2FD70A12(), rangeDouble(0, 1, l - 1)))));
+    iterate((arg) => {
+        setFromFsColumns(dc, arg);
+    }, groupColumnsByHeader(toList(columns)));
+    return dc;
 }
 
 /**
@@ -46,7 +52,7 @@ export function tryFromFsWorksheet(sheet) {
         }
         else {
             const t = matchValue;
-            return DataMap_addColumns_6369C010(composeColumns(t.GetColumns(sheet.CellCollection)), true)(DataMap_init());
+            return DataMap_$ctor_4E3220A7(composeColumns(t.GetColumns(sheet.CellCollection)));
         }
     }
     catch (err) {
@@ -59,13 +65,11 @@ export function tryFromFsWorksheet(sheet) {
 export function toFsWorksheet(table) {
     const stringCount = new Map([]);
     const ws = new FsWorksheet("isa_datamap");
-    if (DataMap__get_Table(table).Columns.length === 0) {
+    if (DataMap__get_DataContexts(table).length === 0) {
         return ws;
     }
     else {
-        const columns = collect(toFsColumns, sortBy(classifyColumnOrder, ofArray(DataMap__get_Table(table).Columns), {
-            Compare: comparePrimitives,
-        }));
+        const columns = toFsColumns(DataMap__get_DataContexts(table));
         const maxRow = length(head(columns)) | 0;
         const maxCol = length(columns) | 0;
         const fsTable = ws.Table("datamapTable", FsRangeAddress_$ctor_7E77A4A0(FsAddress_$ctor_Z37302880(1, 1), FsAddress_$ctor_Z37302880(maxRow, maxCol)));
@@ -92,6 +96,7 @@ export function toFsWorksheet(table) {
                 FsRangeBase__Cell_Z3407A44B(fsTable, address, ws.CellCollection).SetValueAs(value);
             }, col);
         }, columns);
+        ws.RescanRows();
         return ws;
     }
 }