add ARCWorkflow to Dataset

Author: caroott

src/ROCrate/ARCtrl.ROCrate.fsproj

@@ -28,12 +28,12 @@
     <Compile Include="Generic\LabProcess.fs" />
     <Compile Include="Generic\CreateAction.fs" />
     <Compile Include="Generic\CreativeWork.fs" />
-    <Compile Include="Generic\Dataset.fs" />
     <Compile Include="Generic\SoftwareApplication.fs" />
     <Compile Include="Generic\FormalParameter.fs" />
     <Compile Include="Generic\ComputationalWorkflow.fs" />
     <Compile Include="Generic\SoftwareSourceCode.fs" />
     <Compile Include="Generic\WorkflowProtocol.fs" />
+    <Compile Include="Generic\Dataset.fs" />
 
     <!-- ISA Profile types -->
     <Compile Include="ISAProfile\Dataset.fs" />

src/ROCrate/Generic/Dataset.fs

@@ -48,6 +48,10 @@ type LDDataset =
 
     static member variableMeasured = "http://schema.org/variableMeasured"
 
+    static member mainEntity = "http://schema.org/mainEntity"
+
+    static member version = "http://schema.org/version"
+
     static member tryGetIdentifierAsString(lp : LDNode, ?context : LDContext) =
         match lp.TryGetPropertyAsSingleton(LDDataset.identifier, ?context = context) with
         | Some (:? string as n) -> Some n
@@ -274,6 +278,20 @@ type LDDataset =
     static member setVariableMeasuredAsPropertyValues(lp : LDNode, variableMeasured : ResizeArray<LDNode>, ?context : LDContext) =
         lp.SetProperty(LDDataset.variableMeasured, variableMeasured, ?context = context)
 
+    static member getMainEntities(lp : LDNode, ?graph : LDGraph, ?context : LDContext) =
+        lp.GetPropertyNodes(LDDataset.mainEntity, ?graph = graph, ?context = context)
+
+    static member setMainEntities(lp : LDNode, mainEntities : ResizeArray<LDNode>, ?context : LDContext) =
+        lp.SetProperty(LDDataset.mainEntity, mainEntities, ?context = context)
+
+    static member tryGetVersionAsString(lp : LDNode, ?context : LDContext) =
+        match lp.TryGetPropertyAsSingleton(LDDataset.version, ?context = context) with
+        | Some (:? string as n) -> Some n
+        | _ -> None
+
+    static member setVersionAsString(lp : LDNode, version : string, ?context : LDContext) =
+        lp.SetProperty(LDDataset.version, version, ?context = context)
+
     static member genIDInvesigation() =
         "./"
 
@@ -282,6 +300,9 @@ type LDDataset =
 
     static member genIDAssay(identifier : string) =
         $"assays/{identifier}/"
+
+    static member genIDARCWorkflow(identifier : string) =
+        $"workflows/{identifier}/"
 
     static member validate(lp : LDNode, ?context : LDContext) =
         lp.HasType(LDDataset.schemaType, ?context = context)
@@ -298,6 +319,11 @@ type LDDataset =
         LDDataset.validate(lp, ?context = context)
         && lp.AdditionalType.Contains("Assay")
 
+    static member validateARCWorkflow (lp : LDNode, ?context : LDContext) =
+        LDDataset.validate(lp, ?context = context)
+        && lp.AdditionalType.Contains("ARC Workflow")
+        && LDDataset.getMainEntities(lp, ?context = context).Exists(fun ld' -> LDWorkflowProtocol.validate(ld', ?context = context))
+
     static member create(id : string, ?identier : string, ?creators : ResizeArray<LDNode>, ?dateCreated : System.DateTime, ?datePublished : System.DateTime, ?dateModified : System.DateTime, ?description : string, ?hasParts : ResizeArray<LDNode>, ?name : string, ?citations : ResizeArray<LDNode>, ?comments : ResizeArray<LDNode>, ?mentions : ResizeArray<LDNode>, ?url : string, ?abouts : ResizeArray<LDNode>, ?measurementMethod : LDNode, ?measurementTechnique : LDNode, ?variableMeasureds : ResizeArray<LDNode>, ?context : LDContext) =
         let s = LDNode(id, ResizeArray [LDDataset.schemaType], ?context = context)
         s.SetOptionalProperty(LDDataset.identifier, identier, ?context = context)
@@ -341,3 +367,13 @@ type LDDataset =
         let s = LDDataset.create(id, identier = identifier, ?name = name, ?description = description, ?creators = creators, ?hasParts = hasParts, ?measurementMethod = measurementMethod, ?measurementTechnique = measurementTechnique, ?variableMeasureds = variableMeasureds, ?abouts = abouts, ?comments = comments, ?context = context)
         s.AdditionalType <- ResizeArray ["Assay"]
         s
+
+    static member createARCWorkflow(identifier : string, mainEntities: ResizeArray<LDNode>, ?id : string, ?name : string, ?description : string, ?creators : ResizeArray<LDNode>, ?hasParts : ResizeArray<LDNode>, ?measurementMethod : LDNode, ?measurementTechnique : LDNode, ?variableMeasureds : ResizeArray<LDNode>, ?abouts : ResizeArray<LDNode>, ?comments : ResizeArray<LDNode>, ?context : LDContext, ?version : string) =
+        let id = match id with
+                 | Some i -> i
+                 | None -> LDDataset.genIDARCWorkflow(identifier)
+        let s = LDDataset.create(id, identier = identifier, ?name = name, ?description = description, ?creators = creators, ?hasParts = hasParts, ?measurementMethod = measurementMethod, ?measurementTechnique = measurementTechnique, ?variableMeasureds = variableMeasureds, ?abouts = abouts, ?comments = comments, ?context = context)
+        s.AdditionalType <- ResizeArray ["ARC Workflow"]
+        s.SetProperty(LDDataset.mainEntity, mainEntities, ?context = context)
+        s.SetOptionalProperty(LDDataset.version, version, ?context = context)
+        s