@nfdi4plants/arctrl 1.0.7 → 1.1.0

package/ISA/ISA.Json/ArcTypes/ArcAssay.js

@@ -1,8 +1,8 @@
 import { OntologySourceReference_encoder, OntologyAnnotation_encoder, OntologySourceReference_decoder, OntologyAnnotation_decoder } from "../Ontology.js";
 import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor } from "../ConverterOptions.js";
-import { fromString, object as object_1, string, list as list_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { uncurry2 } from "../../../fable_modules/fable-library.4.5.0/Util.js";
-import { ArcTable_encoder, ArcTable_decoder } from "./ArcTable.js";
+import { fromString, array, object as object_1, string, list as list_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { safeHash, equals, uncurry2 } from "../../../fable_modules/fable-library.4.5.0/Util.js";
+import { ArcTable_compressedDecoder, ArcTable_compressedEncoder, ArcTable_encoder, ArcTable_decoder } from "./ArcTable.js";
 import { encoder, decoder as decoder_1 } from "../Person.js";
 import { encoder as encoder_1, decoder as decoder_2 } from "../Comment.js";
 import { Factor_encoder, Factor_decoder } from "../Factor.js";
@@ -12,9 +12,13 @@ import { toArray } from "../../../fable_modules/fable-library.4.5.0/List.js";
 import { toString, object, seq } from "../../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
 import { empty, singleton, append, delay, toList, map as map_1 } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
 import { ArcAssay } from "../../ISA/ArcTypes/ArcTypes.js";
+import { OATable_arrayFromMap, OATable_encoder, OATable_decoder, OATable_decodeOA, OATable_encodeOA } from "./OATable.js";
 import { Assay_decoder, Assay_encoder } from "../Assay.js";
 import { fromJsonString } from "../Decode.js";
 import { printf, toFail } from "../../../fable_modules/fable-library.4.5.0/String.js";
+import { StringTable_arrayFromMap, StringTable_encoder, StringTable_decoder } from "../StringTable.js";
+import { CellTable_arrayFromMap, CellTable_encoder, CellTable_decoder } from "./CellTable.js";
+import { Dictionary } from "../../../fable_modules/fable-library.4.5.0/MutableMap.js";
 
 export const JsonHelper_DecodeOa = OntologyAnnotation_decoder(ConverterOptions_$ctor());
 
@@ -160,6 +164,32 @@ export const ArcAssay_decoder = (path_1) => ((v) => object_1((get$) => {
     return ArcAssay.make(identifier, measurementType, technologyType, technologyPlatform, tables, performers, comments);
 }, path_1, v));
 
+export function ArcAssay_compressedEncoder(stringTable, oaTable, cellTable, assay) {
+    return object(toList(delay(() => append(singleton(["Identifier", assay.Identifier]), delay(() => append((assay.MeasurementType != null) ? singleton(["MeasurementType", OATable_encodeOA(oaTable, value_3(assay.MeasurementType))]) : empty(), delay(() => append((assay.TechnologyType != null) ? singleton(["TechnologyType", OATable_encodeOA(oaTable, value_3(assay.TechnologyType))]) : empty(), delay(() => append((assay.TechnologyPlatform != null) ? singleton(["TechnologyPlatform", OATable_encodeOA(oaTable, value_3(assay.TechnologyPlatform))]) : empty(), delay(() => append((assay.Tables.length !== 0) ? singleton(["Tables", seq(map_1((table) => ArcTable_compressedEncoder(stringTable, oaTable, cellTable, table), assay.Tables))]) : empty(), delay(() => append((assay.Performers.length !== 0) ? singleton(["Performers", JsonHelper_EncoderPersons(assay.Performers)]) : empty(), delay(() => ((assay.Comments.length !== 0) ? singleton(["Comments", JsonHelper_EncoderComments(assay.Comments)]) : empty()))))))))))))))));
+}
+
+export function ArcAssay_compressedDecoder(stringTable, oaTable, cellTable) {
+    return (path_2) => ((v) => object_1((get$) => {
+        let arg_1, decoder, objectArg;
+        const tables = defaultArg(map((collection) => Array.from(collection), (arg_1 = ((decoder = ArcTable_compressedDecoder(stringTable, oaTable, cellTable), (path) => ((value) => array(uncurry2(decoder), path, value)))), (objectArg = get$.Optional, objectArg.Field("Tables", uncurry2(arg_1))))), []);
+        let identifier;
+        const objectArg_1 = get$.Required;
+        identifier = objectArg_1.Field("Identifier", string);
+        let measurementType;
+        const objectArg_2 = get$.Optional;
+        measurementType = objectArg_2.Field("MeasurementType", (s, o) => OATable_decodeOA(oaTable, s, o));
+        let technologyType;
+        const objectArg_3 = get$.Optional;
+        technologyType = objectArg_3.Field("TechnologyType", (s_1, o_1) => OATable_decodeOA(oaTable, s_1, o_1));
+        let technologyPlatform;
+        const objectArg_4 = get$.Optional;
+        technologyPlatform = objectArg_4.Field("TechnologyPlatform", (s_2, o_2) => OATable_decodeOA(oaTable, s_2, o_2));
+        const performers = JsonHelper_tryGetPersons(get$, "Performers");
+        const comments = JsonHelper_tryGetComments(get$, "Comments");
+        return ArcAssay.make(identifier, measurementType, technologyType, technologyPlatform, tables, performers, comments);
+    }, path_2, v));
+}
+
 /**
  * exports in json-ld format
  */
@@ -209,3 +239,44 @@ export function ARCtrl_ISA_ArcAssay__ArcAssay_toArcJsonString_Static_1C75D08D(a)
     return ARCtrl_ISA_ArcAssay__ArcAssay_ToArcJsonString_71136F3F(a);
 }
 
+export function ARCtrl_ISA_ArcAssay__ArcAssay_fromCompressedJsonString_Static_Z721C83C5(jsonString) {
+    const matchValue = fromString((path, v) => object_1((get$) => {
+        let arg_5, objectArg_2;
+        let stringTable;
+        const objectArg = get$.Required;
+        stringTable = objectArg.Field("stringTable", uncurry2(StringTable_decoder));
+        let oaTable;
+        const arg_3 = OATable_decoder(stringTable);
+        const objectArg_1 = get$.Required;
+        oaTable = objectArg_1.Field("oaTable", uncurry2(arg_3));
+        const arg_7 = ArcAssay_compressedDecoder(stringTable, oaTable, (arg_5 = CellTable_decoder(stringTable, oaTable), (objectArg_2 = get$.Required, objectArg_2.Field("cellTable", uncurry2(arg_5)))));
+        const objectArg_3 = get$.Required;
+        return objectArg_3.Field("assay", uncurry2(arg_7));
+    }, path, v), jsonString);
+    if (matchValue.tag === 1) {
+        return toFail(printf("Error. Unable to parse json string to ArcAssay: %s"))(matchValue.fields[0]);
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_ISA_ArcAssay__ArcAssay_ToCompressedJsonString_71136F3F(this$, spaces) {
+    const spaces_1 = defaultArg(spaces, 0) | 0;
+    const stringTable = new Map([]);
+    const oaTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const cellTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const arcAssay = ArcAssay_compressedEncoder(stringTable, oaTable, cellTable, this$);
+    return toString(spaces_1, object([["cellTable", CellTable_encoder(stringTable, oaTable, CellTable_arrayFromMap(cellTable))], ["oaTable", OATable_encoder(stringTable, OATable_arrayFromMap(oaTable))], ["stringTable", StringTable_encoder(StringTable_arrayFromMap(stringTable))], ["assay", arcAssay]]));
+}
+
+export function ARCtrl_ISA_ArcAssay__ArcAssay_toCompressedJsonString_Static_1C75D08D(a) {
+    return ARCtrl_ISA_ArcAssay__ArcAssay_ToCompressedJsonString_71136F3F(a);
+}
+

package/ISA/ISA.Json/ArcTypes/ArcStudy.js

@@ -1,14 +1,19 @@
 import { toString, seq, object } from "../../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
 import { map, empty, singleton, append, delay, toList } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
-import { defaultArg, value as value_7 } from "../../../fable_modules/fable-library.4.5.0/Option.js";
+import { map as map_1, defaultArg, value as value_7 } from "../../../fable_modules/fable-library.4.5.0/Option.js";
 import { JsonHelper_tryGetComments, JsonHelper_tryGetFactors, JsonHelper_tryGetStringResizeArray, JsonHelper_tryGetTables, JsonHelper_tryGetOAs, JsonHelper_tryGetPersons, JsonHelper_tryGetPublications, JsonHelper_EncoderComments, JsonHelper_EncoderFactors, JsonHelper_EncoderTables, JsonHelper_EncoderOAs, JsonHelper_EncoderPersons, JsonHelper_EncoderPublications } from "./ArcAssay.js";
-import { fromString, string, object as object_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { fromString, array, string, object as object_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
 import { ArcStudy } from "../../ISA/ArcTypes/ArcTypes.js";
+import { ArcTable_compressedDecoder, ArcTable_compressedEncoder } from "./ArcTable.js";
+import { safeHash, equals, uncurry2 } from "../../../fable_modules/fable-library.4.5.0/Util.js";
 import { Study_decoder, Study_encoder } from "../Study.js";
 import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor } from "../ConverterOptions.js";
 import { fromJsonString } from "../Decode.js";
-import { uncurry2 } from "../../../fable_modules/fable-library.4.5.0/Util.js";
 import { printf, toFail } from "../../../fable_modules/fable-library.4.5.0/String.js";
+import { StringTable_arrayFromMap, StringTable_encoder, StringTable_decoder } from "../StringTable.js";
+import { OATable_arrayFromMap, OATable_encoder, OATable_decoder } from "./OATable.js";
+import { CellTable_arrayFromMap, CellTable_encoder, CellTable_decoder } from "./CellTable.js";
+import { Dictionary } from "../../../fable_modules/fable-library.4.5.0/MutableMap.js";
 
 export function ArcStudy_encoder(study) {
     return object(toList(delay(() => append(singleton(["Identifier", study.Identifier]), delay(() => append((study.Title != null) ? singleton(["Title", value_7(study.Title)]) : empty(), delay(() => append((study.Description != null) ? singleton(["Description", value_7(study.Description)]) : empty(), delay(() => append((study.SubmissionDate != null) ? singleton(["SubmissionDate", value_7(study.SubmissionDate)]) : empty(), delay(() => append((study.PublicReleaseDate != null) ? singleton(["PublicReleaseDate", value_7(study.PublicReleaseDate)]) : empty(), delay(() => append((study.Publications.length !== 0) ? singleton(["Publications", JsonHelper_EncoderPublications(study.Publications)]) : empty(), delay(() => append((study.Contacts.length !== 0) ? singleton(["Contacts", JsonHelper_EncoderPersons(study.Contacts)]) : empty(), delay(() => append((study.StudyDesignDescriptors.length !== 0) ? singleton(["StudyDesignDescriptors", JsonHelper_EncoderOAs(study.StudyDesignDescriptors)]) : empty(), delay(() => append((study.TableCount !== 0) ? singleton(["Tables", JsonHelper_EncoderTables(study.Tables)]) : empty(), delay(() => append((study.RegisteredAssayIdentifiers.length !== 0) ? singleton(["RegisteredAssayIdentifiers", seq(map((value_5) => value_5, study.RegisteredAssayIdentifiers))]) : empty(), delay(() => append((study.Factors.length !== 0) ? singleton(["Factors", JsonHelper_EncoderFactors(study.Factors)]) : empty(), delay(() => ((study.Comments.length !== 0) ? singleton(["Comments", JsonHelper_EncoderComments(study.Comments)]) : empty()))))))))))))))))))))))))));
@@ -40,6 +45,39 @@ export const ArcStudy_decoder = (path_5) => ((v) => object_1((get$) => {
     return ArcStudy.make(identifier, title, description, submissionDate, publicReleaseDate, publications, contacts, studyDesignDescriptors, tables, registeredAssayIdentifiers, factors, comments);
 }, path_5, v));
 
+export function ArcStudy_compressedEncoder(stringTable, oaTable, cellTable, study) {
+    return object(toList(delay(() => append(singleton(["Identifier", study.Identifier]), delay(() => append((study.Title != null) ? singleton(["Title", value_7(study.Title)]) : empty(), delay(() => append((study.Description != null) ? singleton(["Description", value_7(study.Description)]) : empty(), delay(() => append((study.SubmissionDate != null) ? singleton(["SubmissionDate", value_7(study.SubmissionDate)]) : empty(), delay(() => append((study.PublicReleaseDate != null) ? singleton(["PublicReleaseDate", value_7(study.PublicReleaseDate)]) : empty(), delay(() => append((study.Publications.length !== 0) ? singleton(["Publications", JsonHelper_EncoderPublications(study.Publications)]) : empty(), delay(() => append((study.Contacts.length !== 0) ? singleton(["Contacts", JsonHelper_EncoderPersons(study.Contacts)]) : empty(), delay(() => append((study.StudyDesignDescriptors.length !== 0) ? singleton(["StudyDesignDescriptors", JsonHelper_EncoderOAs(study.StudyDesignDescriptors)]) : empty(), delay(() => append((study.TableCount !== 0) ? singleton(["Tables", seq(map((table) => ArcTable_compressedEncoder(stringTable, oaTable, cellTable, table), study.Tables))]) : empty(), delay(() => append((study.RegisteredAssayIdentifiers.length !== 0) ? singleton(["RegisteredAssayIdentifiers", seq(map((value_5) => value_5, study.RegisteredAssayIdentifiers))]) : empty(), delay(() => append((study.Factors.length !== 0) ? singleton(["Factors", JsonHelper_EncoderFactors(study.Factors)]) : empty(), delay(() => ((study.Comments.length !== 0) ? singleton(["Comments", JsonHelper_EncoderComments(study.Comments)]) : empty()))))))))))))))))))))))))));
+}
+
+export function ArcStudy_compressedDecoder(stringTable, oaTable, cellTable) {
+    return (path_6) => ((v) => object_1((get$) => {
+        let arg_1, decoder, objectArg;
+        const tables = defaultArg(map_1((collection) => Array.from(collection), (arg_1 = ((decoder = ArcTable_compressedDecoder(stringTable, oaTable, cellTable), (path) => ((value) => array(uncurry2(decoder), path, value)))), (objectArg = get$.Optional, objectArg.Field("Tables", uncurry2(arg_1))))), []);
+        let identifier;
+        const objectArg_1 = get$.Required;
+        identifier = objectArg_1.Field("Identifier", string);
+        let title;
+        const objectArg_2 = get$.Optional;
+        title = objectArg_2.Field("Title", string);
+        let description;
+        const objectArg_3 = get$.Optional;
+        description = objectArg_3.Field("Description", string);
+        let submissionDate;
+        const objectArg_4 = get$.Optional;
+        submissionDate = objectArg_4.Field("SubmissionDate", string);
+        let publicReleaseDate;
+        const objectArg_5 = get$.Optional;
+        publicReleaseDate = objectArg_5.Field("PublicReleaseDate", string);
+        const publications = JsonHelper_tryGetPublications(get$, "Publications");
+        const contacts = JsonHelper_tryGetPersons(get$, "Contacts");
+        const studyDesignDescriptors = JsonHelper_tryGetOAs(get$, "StudyDesignDescriptors");
+        const registeredAssayIdentifiers = JsonHelper_tryGetStringResizeArray(get$, "RegisteredAssayIdentifiers");
+        const factors = JsonHelper_tryGetFactors(get$, "Factors");
+        const comments = JsonHelper_tryGetComments(get$, "Comments");
+        return ArcStudy.make(identifier, title, description, submissionDate, publicReleaseDate, publications, contacts, studyDesignDescriptors, tables, registeredAssayIdentifiers, factors, comments);
+    }, path_6, v));
+}
+
 /**
  * exports in json-ld format
  */
@@ -89,3 +127,44 @@ export function ARCtrl_ISA_ArcStudy__ArcStudy_toArcJsonString_Static_1B3D5E9B(a)
     return ARCtrl_ISA_ArcStudy__ArcStudy_ToArcJsonString_71136F3F(a);
 }
 
+export function ARCtrl_ISA_ArcStudy__ArcStudy_fromCompressedJsonString_Static_Z721C83C5(jsonString) {
+    const matchValue = fromString((path, v) => object_1((get$) => {
+        let arg_5, objectArg_2;
+        let stringTable;
+        const objectArg = get$.Required;
+        stringTable = objectArg.Field("stringTable", uncurry2(StringTable_decoder));
+        let oaTable;
+        const arg_3 = OATable_decoder(stringTable);
+        const objectArg_1 = get$.Required;
+        oaTable = objectArg_1.Field("oaTable", uncurry2(arg_3));
+        const arg_7 = ArcStudy_compressedDecoder(stringTable, oaTable, (arg_5 = CellTable_decoder(stringTable, oaTable), (objectArg_2 = get$.Required, objectArg_2.Field("cellTable", uncurry2(arg_5)))));
+        const objectArg_3 = get$.Required;
+        return objectArg_3.Field("study", uncurry2(arg_7));
+    }, path, v), jsonString);
+    if (matchValue.tag === 1) {
+        return toFail(printf("Error. Unable to parse json string to ArcAssay: %s"))(matchValue.fields[0]);
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_ISA_ArcStudy__ArcStudy_ToCompressedJsonString_71136F3F(this$, spaces) {
+    const spaces_1 = defaultArg(spaces, 0) | 0;
+    const stringTable = new Map([]);
+    const oaTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const cellTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const arcStudy = ArcStudy_compressedEncoder(stringTable, oaTable, cellTable, this$);
+    return toString(spaces_1, object([["cellTable", CellTable_encoder(stringTable, oaTable, CellTable_arrayFromMap(cellTable))], ["oaTable", OATable_encoder(stringTable, OATable_arrayFromMap(oaTable))], ["stringTable", StringTable_encoder(StringTable_arrayFromMap(stringTable))], ["study", arcStudy]]));
+}
+
+export function ARCtrl_ISA_ArcStudy__ArcStudy_toCompressedJsonString_Static_1B3D5E9B(s) {
+    return ARCtrl_ISA_ArcStudy__ArcStudy_ToCompressedJsonString_71136F3F(s);
+}
+

package/ISA/ISA.Json/ArcTypes/ArcTable.js

@@ -1,15 +1,21 @@
 import { toString, tuple2, map as map_1, list, object } from "../../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { collect, empty, map, singleton, append, delay, toList } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
+import { iterate, toArray, collect, empty, map, singleton, append, delay, toList } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
 import { CompositeHeader_decoder, CompositeHeader_encoder } from "./CompositeHeader.js";
 import { CompositeCell_decoder, CompositeCell_encoder } from "./CompositeCell.js";
 import { empty as empty_2, ofSeq } from "../../../fable_modules/fable-library.4.5.0/Map.js";
-import { arrayHash, equalArrays, uncurry2, compareArrays } from "../../../fable_modules/fable-library.4.5.0/Util.js";
-import { fromString, string, int, tuple2 as tuple2_1, map$0027, list as list_1, object as object_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { defaultArg } from "../../../fable_modules/fable-library.4.5.0/Option.js";
+import { safeHash, equals, arrayHash, equalArrays, uncurry2, compareArrays } from "../../../fable_modules/fable-library.4.5.0/Util.js";
+import { fromString, value as value_5, array as array_1, string, int, tuple2 as tuple2_1, map$0027, list as list_1, object as object_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { toArray as toArray_1, defaultArg } from "../../../fable_modules/fable-library.4.5.0/Option.js";
 import { empty as empty_1 } from "../../../fable_modules/fable-library.4.5.0/List.js";
 import { Dictionary } from "../../../fable_modules/fable-library.4.5.0/MutableMap.js";
 import { ArcTable } from "../../ISA/ArcTypes/ArcTable.js";
+import { CellTable_arrayFromMap, CellTable_encoder, CellTable_decoder, CellTable_decodeCell, CellTable_encodeCell } from "./CellTable.js";
+import { addToDict, getItemFromDict } from "../../../fable_modules/fable-library.4.5.0/MapUtil.js";
+import { rangeDouble } from "../../../fable_modules/fable-library.4.5.0/Range.js";
+import { iterateIndexed } from "../../../fable_modules/fable-library.4.5.0/Array.js";
+import { StringTable_arrayFromMap, StringTable_encoder, StringTable_decoder, StringTable_decodeString, StringTable_encodeString } from "../StringTable.js";
 import { printf, toFail } from "../../../fable_modules/fable-library.4.5.0/String.js";
+import { OATable_arrayFromMap, OATable_encoder, OATable_decoder } from "./OATable.js";
 
 export function ArcTable_encoder(table) {
     return object(toList(delay(() => append(singleton(["name", table.Name]), delay(() => append((table.Headers.length !== 0) ? singleton(["header", list(toList(delay(() => map(CompositeHeader_encoder, table.Headers))))]) : empty(), delay(() => ((table.Values.size !== 0) ? singleton(["values", map_1((tupledArg) => tuple2((value) => value, (value_2) => value_2, tupledArg[0], tupledArg[1]), CompositeCell_encoder, ofSeq(toList(delay(() => collect((matchValue) => {
@@ -37,6 +43,80 @@ export const ArcTable_decoder = (path_2) => ((v) => object_1((get$) => {
     return ArcTable.create((objectArg_2 = get$.Required, objectArg_2.Field("name", string)), decodedHeader, decodedValues);
 }, path_2, v));
 
+export function ArcTable_compressedColumnEncoder(columnIndex, rowCount, cellTable, table) {
+    if (table.Headers[columnIndex].IsIOType ? true : (rowCount < 100)) {
+        return toArray(delay(() => map((r) => CellTable_encodeCell(cellTable, getItemFromDict(table.Values, [columnIndex, r])), rangeDouble(0, 1, rowCount - 1))));
+    }
+    else {
+        let current = getItemFromDict(table.Values, [columnIndex, 0]);
+        let from = 0;
+        return toArray(delay(() => append(collect((i) => {
+            const next = getItemFromDict(table.Values, [columnIndex, i]);
+            return !equals(next, current) ? append(singleton(object([["f", from], ["t", i - 1], ["v", CellTable_encodeCell(cellTable, current)]])), delay(() => {
+                current = next;
+                from = (i | 0);
+                return empty();
+            })) : empty();
+        }, rangeDouble(1, 1, rowCount - 1)), delay(() => singleton(object([["f", from], ["t", rowCount - 1], ["v", CellTable_encodeCell(cellTable, current)]]))))));
+    }
+}
+
+export function ArcTable_compressedColumnDecoder(columnIndex, cellTable, table, column) {
+    const matchValue = array_1((s, o) => CellTable_decodeCell(cellTable, s, o), "", column);
+    if (matchValue.tag === 1) {
+        array_1((s_1, jv) => object_1((get$) => {
+            let from;
+            const objectArg = get$.Required;
+            from = objectArg.Field("f", uncurry2(int));
+            let to_;
+            const objectArg_1 = get$.Required;
+            to_ = objectArg_1.Field("t", uncurry2(int));
+            let value;
+            const objectArg_2 = get$.Required;
+            value = objectArg_2.Field("v", (s_2, o_1) => CellTable_decodeCell(cellTable, s_2, o_1));
+            for (let i = from; i <= to_; i++) {
+                addToDict(table.Values, [columnIndex, i], value);
+            }
+        }, s_1, jv), "", column);
+    }
+    else {
+        iterateIndexed((r, cell) => {
+            addToDict(table.Values, [columnIndex, r], cell);
+        }, matchValue.fields[0]);
+    }
+}
+
+export function ArcTable_compressedEncoder(stringTable, oaTable, cellTable, table) {
+    return object(toList(delay(() => append(singleton(["n", StringTable_encodeString(stringTable, table.Name)]), delay(() => append((table.Headers.length !== 0) ? singleton(["h", list(toList(delay(() => map(CompositeHeader_encoder, table.Headers))))]) : empty(), delay(() => {
+        if (table.Values.size !== 0) {
+            const rowCount = table.RowCount | 0;
+            return singleton(["c", toArray(delay(() => map((c) => ArcTable_compressedColumnEncoder(c, rowCount, cellTable, table), rangeDouble(0, 1, table.ColumnCount - 1))))]);
+        }
+        else {
+            return empty();
+        }
+    })))))));
+}
+
+export function ArcTable_compressedDecoder(stringTable, oaTable, cellTable) {
+    return (path_2) => ((v_1) => object_1((get$) => {
+        let objectArg, objectArg_1, objectArg_2;
+        let decodedHeader;
+        const collection = defaultArg((objectArg = get$.Optional, objectArg.Field("h", (path, value) => list_1(uncurry2(CompositeHeader_decoder), path, value))), empty_1());
+        decodedHeader = Array.from(collection);
+        const table = ArcTable.create((objectArg_1 = get$.Required, objectArg_1.Field("n", (s, o) => StringTable_decodeString(stringTable, s, o))), decodedHeader, new Dictionary([], {
+            Equals: equalArrays,
+            GetHashCode: arrayHash,
+        }));
+        iterate((array) => {
+            iterateIndexed((c, col) => {
+                ArcTable_compressedColumnDecoder(c, cellTable, table, col);
+            }, array);
+        }, toArray_1((objectArg_2 = get$.Optional, objectArg_2.Field("c", (path_1, value_2) => array_1(value_5, path_1, value_2)))));
+        return table;
+    }, path_2, v_1));
+}
+
 export function ARCtrl_ISA_ArcTable__ArcTable_fromJsonString_Static_Z721C83C5(jsonString) {
     const matchValue = fromString(uncurry2(ArcTable_decoder), jsonString);
     if (matchValue.tag === 1) {
@@ -55,3 +135,44 @@ export function ARCtrl_ISA_ArcTable__ArcTable_toJsonString_Static_1B2566EA(a) {
     return ARCtrl_ISA_ArcTable__ArcTable_ToJsonString_71136F3F(a);
 }
 
+export function ARCtrl_ISA_ArcTable__ArcTable_fromCompressedJsonString_Static_Z721C83C5(jsonString) {
+    const matchValue = fromString((path, v) => object_1((get$) => {
+        let arg_5, objectArg_2;
+        let stringTable;
+        const objectArg = get$.Required;
+        stringTable = objectArg.Field("stringTable", uncurry2(StringTable_decoder));
+        let oaTable;
+        const arg_3 = OATable_decoder(stringTable);
+        const objectArg_1 = get$.Required;
+        oaTable = objectArg_1.Field("oaTable", uncurry2(arg_3));
+        const arg_7 = ArcTable_compressedDecoder(stringTable, oaTable, (arg_5 = CellTable_decoder(stringTable, oaTable), (objectArg_2 = get$.Required, objectArg_2.Field("cellTable", uncurry2(arg_5)))));
+        const objectArg_3 = get$.Required;
+        return objectArg_3.Field("table", uncurry2(arg_7));
+    }, path, v), jsonString);
+    if (matchValue.tag === 1) {
+        return toFail(printf("Error. Unable to parse json string to ArcTable: %s"))(matchValue.fields[0]);
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_ISA_ArcTable__ArcTable_ToCompressedJsonString_71136F3F(this$, spaces) {
+    const spaces_1 = defaultArg(spaces, 0) | 0;
+    const stringTable = new Map([]);
+    const oaTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const cellTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const arcTable = ArcTable_compressedEncoder(stringTable, oaTable, cellTable, this$);
+    return toString(spaces_1, object([["cellTable", CellTable_encoder(stringTable, oaTable, CellTable_arrayFromMap(cellTable))], ["oaTable", OATable_encoder(stringTable, OATable_arrayFromMap(oaTable))], ["stringTable", StringTable_encoder(StringTable_arrayFromMap(stringTable))], ["table", arcTable]]));
+}
+
+export function ARCtrl_ISA_ArcTable__ArcTable_toCompressedJsonString_Static_1B2566EA(a) {
+    return ARCtrl_ISA_ArcTable__ArcTable_ToCompressedJsonString_71136F3F(a);
+}
+

package/ISA/ISA.Json/ArcTypes/CellTable.js

@@ -0,0 +1,46 @@
+import { sortBy, map, toArray } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
+import { uncurry2, comparePrimitives } from "../../../fable_modules/fable-library.4.5.0/Util.js";
+import { map as map_1 } from "../../../fable_modules/fable-library.4.5.0/Array.js";
+import { CompositeCell_compressedDecoder, CompositeCell_compressedEncoder } from "./CompositeCell.js";
+import { int, array as array_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { Dict_tryFind } from "../../ISA/Helper.js";
+import { addToDict } from "../../../fable_modules/fable-library.4.5.0/MapUtil.js";
+import { FSharpResult$2 } from "../../../fable_modules/fable-library.4.5.0/Choice.js";
+
+export function CellTable_arrayFromMap(otm) {
+    return toArray(map((kv_1) => kv_1[0], sortBy((kv) => kv[1], otm, {
+        Compare: comparePrimitives,
+    })));
+}
+
+export function CellTable_encoder(stringTable, oaTable, ot) {
+    return map_1((cc) => CompositeCell_compressedEncoder(stringTable, oaTable, cc), ot);
+}
+
+export function CellTable_decoder(stringTable, oaTable) {
+    const decoder = CompositeCell_compressedDecoder(stringTable, oaTable);
+    return (path) => ((value) => array_1(uncurry2(decoder), path, value));
+}
+
+export function CellTable_encodeCell(otm, cc) {
+    const matchValue = Dict_tryFind(cc, otm);
+    if (matchValue == null) {
+        const i_1 = otm.size | 0;
+        addToDict(otm, cc, i_1);
+        return i_1;
+    }
+    else {
+        return matchValue;
+    }
+}
+
+export function CellTable_decodeCell(ot, s, o) {
+    const matchValue = int(s)(o);
+    if (matchValue.tag === 1) {
+        return new FSharpResult$2(1, [matchValue.fields[0]]);
+    }
+    else {
+        return new FSharpResult$2(0, [ot[matchValue.fields[0]]]);
+    }
+}
+

package/ISA/ISA.Json/ArcTypes/CompositeCell.js

@@ -6,6 +6,8 @@ import { fromString, index, string, object as object_1 } from "../../../fable_mo
 import { CompositeCell } from "../../ISA/ArcTypes/CompositeCell.js";
 import { uncurry2 } from "../../../fable_modules/fable-library.4.5.0/Util.js";
 import { printf, toFail } from "../../../fable_modules/fable-library.4.5.0/String.js";
+import { OATable_decodeOA, OATable_encodeOA } from "./OATable.js";
+import { StringTable_decodeString, StringTable_encodeString } from "../StringTable.js";
 import { defaultArg } from "../../../fable_modules/fable-library.4.5.0/Option.js";
 
 export function CompositeCell_encoder(cc) {
@@ -31,6 +33,30 @@ export const CompositeCell_decoder = (path_7) => ((v_1) => object_1((get$) => {
     }
 }, path_7, v_1));
 
+export function CompositeCell_compressedEncoder(stringTable, oaTable, cc) {
+    const patternInput = (cc.tag === 0) ? ["Term", singleton(OATable_encodeOA(oaTable, cc.fields[0]))] : ((cc.tag === 2) ? ["Unitized", ofArray([StringTable_encodeString(stringTable, cc.fields[0]), OATable_encodeOA(oaTable, cc.fields[1])])] : ["FreeText", singleton(StringTable_encodeString(stringTable, cc.fields[0]))]);
+    return object([["t", StringTable_encodeString(stringTable, patternInput[0])], ["v", list(patternInput[1])]]);
+}
+
+export function CompositeCell_compressedDecoder(stringTable, oaTable) {
+    return (path_4) => ((v_1) => object_1((get$) => {
+        let objectArg_1, objectArg_2, objectArg_3, objectArg_4;
+        let matchValue;
+        const objectArg = get$.Required;
+        matchValue = objectArg.Field("t", (s, o) => StringTable_decodeString(stringTable, s, o));
+        switch (matchValue) {
+            case "FreeText":
+                return new CompositeCell(1, [(objectArg_1 = get$.Required, objectArg_1.Field("v", (path, value) => index(0, (s_1, o_1) => StringTable_decodeString(stringTable, s_1, o_1), path, value)))]);
+            case "Term":
+                return new CompositeCell(0, [(objectArg_2 = get$.Required, objectArg_2.Field("v", (path_1, value_1) => index(0, (s_3, o_2) => OATable_decodeOA(oaTable, s_3, o_2), path_1, value_1)))]);
+            case "Unitized":
+                return new CompositeCell(2, [(objectArg_3 = get$.Required, objectArg_3.Field("v", (path_2, value_2) => index(0, (s_4, o_3) => StringTable_decodeString(stringTable, s_4, o_3), path_2, value_2))), (objectArg_4 = get$.Required, objectArg_4.Field("v", (path_3, value_3) => index(1, (s_5, o_4) => OATable_decodeOA(oaTable, s_5, o_4), path_3, value_3)))]);
+            default:
+                return toFail(printf("Error reading CompositeCell from json string: %A"))(matchValue);
+        }
+    }, path_4, v_1));
+}
+
 export function ARCtrl_ISA_CompositeCell__CompositeCell_fromJsonString_Static_Z721C83C5(jsonString) {
     const matchValue = fromString(uncurry2(CompositeCell_decoder), jsonString);
     if (matchValue.tag === 1) {

package/ISA/ISA.Json/ArcTypes/OATable.js

@@ -0,0 +1,48 @@
+import { sortBy, map, toArray } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
+import { uncurry2, comparePrimitives } from "../../../fable_modules/fable-library.4.5.0/Util.js";
+import { map as map_1 } from "../../../fable_modules/fable-library.4.5.0/Array.js";
+import { ConverterOptions_$ctor } from "../ConverterOptions.js";
+import { OntologyAnnotation_compressedDecoder, OntologyAnnotation_compressedEncoder } from "../Ontology.js";
+import { int, array as array_1 } from "../../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { Dict_tryFind } from "../../ISA/Helper.js";
+import { addToDict } from "../../../fable_modules/fable-library.4.5.0/MapUtil.js";
+import { FSharpResult$2 } from "../../../fable_modules/fable-library.4.5.0/Choice.js";
+
+export function OATable_arrayFromMap(otm) {
+    return toArray(map((kv_1) => kv_1[0], sortBy((kv) => kv[1], otm, {
+        Compare: comparePrimitives,
+    })));
+}
+
+export function OATable_encoder(stringTable, ot) {
+    let options;
+    return map_1((options = ConverterOptions_$ctor(), (oa) => OntologyAnnotation_compressedEncoder(stringTable, options, oa)), ot);
+}
+
+export function OATable_decoder(stringTable) {
+    const decoder = OntologyAnnotation_compressedDecoder(stringTable, ConverterOptions_$ctor());
+    return (path) => ((value) => array_1(uncurry2(decoder), path, value));
+}
+
+export function OATable_encodeOA(otm, oa) {
+    const matchValue = Dict_tryFind(oa, otm);
+    if (matchValue == null) {
+        const i_1 = otm.size | 0;
+        addToDict(otm, oa, i_1);
+        return i_1;
+    }
+    else {
+        return matchValue;
+    }
+}
+
+export function OATable_decodeOA(ot, s, o) {
+    const matchValue = int(s)(o);
+    if (matchValue.tag === 1) {
+        return new FSharpResult$2(1, [matchValue.fields[0]]);
+    }
+    else {
+        return new FSharpResult$2(0, [ot[matchValue.fields[0]]]);
+    }
+}
+

package/ISA/ISA.Json/Ontology.js

@@ -13,6 +13,7 @@ import { OntologySourceReference } from "../ISA/JsonTypes/OntologySourceReferenc
 import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
 import { OntologyAnnotation } from "../ISA/JsonTypes/OntologyAnnotation.js";
 import { unwrap } from "../../fable_modules/fable-library.4.5.0/Option.js";
+import { StringTable_decodeString, StringTable_encodeString } from "./StringTable.js";
 
 /**
  * This decodes from integer, float or string to string only!
@@ -175,6 +176,35 @@ export function OntologyAnnotation_decoder(options) {
     }, path_3, v));
 }
 
+export function OntologyAnnotation_compressedEncoder(stringTable, options, oa) {
+    return object_10(choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, nil)) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, toList(delay(() => {
+        let value, s;
+        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = OntologyAnnotation_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
+            let s_1;
+            const value_3 = value_2;
+            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
+        }, oa["ID"])), delay(() => {
+            let value_5, s_2;
+            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "OntologyAnnotation", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("a", (s_3) => StringTable_encodeString(stringTable, s_3), oa["Name"])), delay(() => append(singleton(tryInclude("ts", (s_4) => StringTable_encodeString(stringTable, s_4), oa["TermSourceREF"])), delay(() => append(singleton(tryInclude("ta", (s_5) => StringTable_encodeString(stringTable, s_5), oa["TermAccessionNumber"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), oa["Comments"]))))))))));
+        }));
+    }))));
+}
+
+export function OntologyAnnotation_compressedDecoder(stringTable, options) {
+    return (path_1) => ((v) => object_11((get$) => {
+        let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, decoder, objectArg_4;
+        return OntologyAnnotation.create(unwrap((objectArg = get$.Optional, objectArg.Field("@id", uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("a", (s_1, o) => StringTable_decodeString(stringTable, s_1, o)))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("ts", (s_2, o_1) => StringTable_decodeString(stringTable, s_2, o_1)))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("ta", (s_3, o_2) => StringTable_decodeString(stringTable, s_3, o_2)))), unwrap((arg_9 = ((decoder = decoder_1(options), (path) => ((value) => array(uncurry2(decoder), path, value)))), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", uncurry2(arg_9))))));
+    }, path_1, v));
+}
+
 export function OntologyAnnotation_fromJsonString(s) {
     return fromJsonString(uncurry2(OntologyAnnotation_decoder(ConverterOptions_$ctor())), s);
 }

package/ISA/ISA.Json/StringTable.js

@@ -0,0 +1,43 @@
+import { sortBy, map, toArray } from "../../fable_modules/fable-library.4.5.0/Seq.js";
+import { comparePrimitives } from "../../fable_modules/fable-library.4.5.0/Util.js";
+import { map as map_1 } from "../../fable_modules/fable-library.4.5.0/Array.js";
+import { int, string, array as array_1 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { Dict_tryFind } from "../ISA/Helper.js";
+import { addToDict } from "../../fable_modules/fable-library.4.5.0/MapUtil.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library.4.5.0/Choice.js";
+
+export function StringTable_arrayFromMap(otm) {
+    return toArray(map((kv_1) => kv_1[0], sortBy((kv) => kv[1], otm, {
+        Compare: comparePrimitives,
+    })));
+}
+
+export function StringTable_encoder(ot) {
+    return map_1((value) => value, ot);
+}
+
+export const StringTable_decoder = (path_1) => ((value_1) => array_1(string, path_1, value_1));
+
+export function StringTable_encodeString(otm, s) {
+    const s_1 = s;
+    const matchValue = Dict_tryFind(s_1, otm);
+    if (matchValue == null) {
+        const i_1 = otm.size | 0;
+        addToDict(otm, s_1, i_1);
+        return i_1;
+    }
+    else {
+        return matchValue;
+    }
+}
+
+export function StringTable_decodeString(ot, s, o) {
+    const matchValue = int(s)(o);
+    if (matchValue.tag === 1) {
+        return new FSharpResult$2(1, [matchValue.fields[0]]);
+    }
+    else {
+        return new FSharpResult$2(0, [ot[matchValue.fields[0]]]);
+    }
+}
+