aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorPjotr Prins2024-07-07 14:44:19 +0200
committerPjotr Prins2024-07-07 14:44:19 +0200
commitc82e6ce80fd26146f6187b9babbba561f3b65973 (patch)
tree3596db642cce8fba9f3c5b1ed58f3e48cab71e95 /scripts
parent65ee7ce5c99aeb802152027c43c9285aec3ab9ad (diff)
downloadgn-guile-c82e6ce80fd26146f6187b9babbba561f3b65973.tar.gz
precompute: URL is now correct (validated)
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/precompute/list-traits-to-compute.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index 9a548b7..61ce755 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -108,7 +108,7 @@ The following is produced by gemma-wrapper as metadata
!#
-(define (write-json-ld id name trait trait-name probeset-id recs)
+(define (write-json-ld id name trait trait-name probesetfreeze-id probeset-id recs)
;; see also https://www.w3.org/2018/jsonld-cg-reports/json-ld/
(display id)
(display ":")
@@ -131,11 +131,13 @@ The following is produced by gemma-wrapper as metadata
(time . ,(date->string (time-utc->date (current-time))))))
(data .
((,id .
- ((probeset-id . ,probeset-id)
+ ((probesetfreeze-id . ,probesetfreeze-id)
+ (probeset-id . ,probeset-id)
(name . ,name)
(trait-name . ,trait-name)
+ (uri . ,uri)
(traits . ,traits)
- (uri . ,uri)))))))]
+ ))))))]
(call-with-output-file (string-append (number->string id) ".json")
(lambda (port)
(put-string port (scm->json-string json-data))))
@@ -188,7 +190,7 @@ The following is produced by gemma-wrapper as metadata
]
(match r
((id . recs) (if (has-bxd? recs)
- (write-json-ld id name trait trait-name probeset-id recs)
+ (write-json-ld id name trait trait-name probesetfreeze-id probeset-id recs)
))
))) nrecs hits)
(if (> rest 0)