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:
parent
4cc5e5204b
commit
c586f427b4
|
@ -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.
|
||||||
|
|
Loading…
Reference in New Issue