Pretty-print numeric option.

BIMSBbioinfo · Oct 6, 2016 · 27e2718 · 27e2718
1 parent 402dd6f
commit 27e2718
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/rcas/utils/report.scm b/rcas/utils/report.scm
@@ -110,12 +110,17 @@ in R, i.e. to from hyphenated lowercase to camelCase."
           (cons "Run motif analysis"
                 (if value "yes" "no")))
          (('genomeVersion . genome)
-          (cons "Genome version" genome)))
+          (cons "Genome version" genome))
+         (('sampleN . value)
+          (if (zero? value) #f
+              (cons "Downsampled intervals"
+                    (format #f "~:d" value)))))
        (call-with-input-string options read)))
 
 (define (options-as-table options-string)
   `(table ,@(map (match-lambda
                    ((label . value)
                     `(tr (th ,label)
-                         (td ,value))))
+                         (td ,value)))
+                   (_ ""))
                  (prettify-options options-string))))