RO-Crate export: fixed paths/ids for directories

Author: floWetzels

src/Json/Assay.fs

@@ -76,7 +76,7 @@ module Assay =
             | "" -> "#EmptyAssay"
             | i -> 
                 let identifier = i.Replace(" ","_")
-                $"#assay/{identifier}"
+                $"assays/{identifier}/"
 
         let encoder (studyName:string Option) (a : ArcAssay) = 
             let fileName = Identifier.Assay.fileNameFromIdentifier a.Identifier

src/Json/Study.fs

@@ -109,7 +109,7 @@ module Study =
             | "" -> "#EmptyStudy"
             | i -> 
                 let identifier = i.Replace(" ","_")
-                $"#study/{identifier}"
+                $"studies/{identifier}/"
 
         let encoder (assays: ArcAssay list option) (s : ArcStudy) = 
             let fileName = Identifier.Study.tryFileNameFromIdentifier s.Identifier

tests/TestingUtils/TestObjects.Json/Study.fs

@@ -3,7 +3,7 @@
 let studyWithIDTable =
     """
     {
-        "@id": "#study/Study1",
+        "@id": "studies/Study1/",
         "filename" : "studies/Study1/isa.study.xlsx",
         "identifier" : "Study1",
         "protocols" : [