futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
guix/build-system/r.scm
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/"
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
release corresponding to NAME and VERSION."
(list (string-append "https://bioconductor.org/packages/release/bioc/src/contrib/"
name "_" version ".tar.gz")
;; TODO: use %bioconductor-version from (guix import cran)
(string-append "https://bioconductor.org/packages/3.9/bioc/src/contrib/Archive/"
name "_" version ".tar.gz")))
(let ((type-url-part (match type
('annotation "/data/annotation")
('experiment "/data/experiment")
(_ "/bioc"))))
(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
;; Build-side modules imported by default.