diff options
| author | Pjotr Prins | 2025-08-02 13:31:43 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2025-08-02 13:31:43 +0200 |
| commit | 6e1e275813fb55c9a53e37b004262f3070ef42b3 (patch) | |
| tree | 104712bdd7b9e490dfc02ff2efa1ab6758c5ee74 /web/webserver.scm | |
| parent | f5ec159d3c14bd12f410ca2fa64560121308f25b (diff) | |
| download | gn-guile-6e1e275813fb55c9a53e37b004262f3070ef42b3.tar.gz | |
API: endpoint gets trait values for BXD in GEMMA format
Diffstat (limited to 'web/webserver.scm')
| -rw-r--r-- | web/webserver.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index c242b9d..28e33cd 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -24,6 +24,7 @@ (gn data dataset) (gn data species) (gn data group) + (gn runner gemma) (web sxml) (web view view) (web view doc) @@ -261,8 +262,8 @@ otherwise search for set/group data" (".json" (render-json (get-bxd-publish-values (basename page ".json")))) (".tsv" (render-string "TEST1\nTEST2")) - (".gemma" (write-pheno-file page (get-bxd-publish-values (basename page ".gemma")))) - (else (display "ERROR: unknown file type")))) + (".gemma" (render-string (string-join (gemma-pheno-txt "BXD" (get-bxd-publish-values (basename page ".gemma"))) ""))) + (else (display "ERROR: unknown file extension")))) (('GET "dataset" "bxd-publish" "mapping" "values" (string-append dataid ".json")) (render-json (get-bxd-publish-values dataid #:used-for-mapping? #t))) (('GET "doc" "species.html") |