build-system/r: bioconductor-uri: Take optional package type.

* guix/build-system/r.scm (bioconductor-uri): Take optional TYPE argument to
return annotation or experiment URLs.
This commit is contained in:
Ricardo Wurmus 2019-08-16 14:56:37 +02:00
parent 4cc5e5204b
commit c586f427b4
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 14 additions and 6 deletions

View File

@ -47,14 +47,22 @@ available via the first URI, the second URI points to the archived version."
(string-append "mirror://cran/src/contrib/Archive/" (string-append "mirror://cran/src/contrib/Archive/"
name "/" name "_" version ".tar.gz"))) name "/" name "_" version ".tar.gz")))
(define (bioconductor-uri name version) (define* (bioconductor-uri name version #:optional type)
"Return a URI string for the R package archive on Bioconductor for the "Return a URI string for the R package archive on Bioconductor for the
release corresponding to NAME and VERSION." release corresponding to NAME and VERSION."
(list (string-append "https://bioconductor.org/packages/release/bioc/src/contrib/" (let ((type-url-part (match type
name "_" version ".tar.gz") ('annotation "/data/annotation")
;; TODO: use %bioconductor-version from (guix import cran) ('experiment "/data/experiment")
(string-append "https://bioconductor.org/packages/3.9/bioc/src/contrib/Archive/" (_ "/bioc"))))
name "_" version ".tar.gz"))) (list (string-append "https://bioconductor.org/packages/release"
type-url-part
"/src/contrib/"
name "_" version ".tar.gz")
;; TODO: use %bioconductor-version from (guix import cran)
(string-append "https://bioconductor.org/packages/3.9"
type-url-part
"/src/contrib/Archive/"
name "_" version ".tar.gz"))))
(define %r-build-system-modules (define %r-build-system-modules
;; Build-side modules imported by default. ;; Build-side modules imported by default.