mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: r-affycompatible: Build reproducibly.
* gnu/packages/bioconductor.scm (r-affycompatible)[arguments]: Sort XML elements before generating R code from them.
This commit is contained in:
parent
cbdfa54c77
commit
9238ba5874
1 changed files with 19 additions and 0 deletions
|
@ -2940,6 +2940,25 @@ (define-public r-affycompatible
|
||||||
(properties
|
(properties
|
||||||
`((upstream-name . "AffyCompatible")))
|
`((upstream-name . "AffyCompatible")))
|
||||||
(build-system r-build-system)
|
(build-system r-build-system)
|
||||||
|
(arguments
|
||||||
|
(list
|
||||||
|
#:phases
|
||||||
|
`(modify-phases %standard-phases
|
||||||
|
(add-after 'unpack 'make-reproducible
|
||||||
|
(lambda _
|
||||||
|
;; Order DTD elements before generating R code from them.
|
||||||
|
(substitute* "R/methods-AffyCompatible.R"
|
||||||
|
(("dtd <- .*" m)
|
||||||
|
(string-append m "
|
||||||
|
elements <- dtd$elements
|
||||||
|
ordered <- elements[order(names(elements))]\n"))
|
||||||
|
(("elt in dtd\\$elements")
|
||||||
|
"elt in ordered"))
|
||||||
|
;; Use a predictable directory name for code generation.
|
||||||
|
(mkdir-p "/tmp/NetAffxResourcePrototype")
|
||||||
|
(substitute* "R/DataClasses.R"
|
||||||
|
(("directory=tempdir\\(\\)")
|
||||||
|
"directory=\"/tmp/NetAffxResourcePrototype\"")))))))
|
||||||
(propagated-inputs
|
(propagated-inputs
|
||||||
(list r-biostrings r-rcurl r-xml))
|
(list r-biostrings r-rcurl r-xml))
|
||||||
(home-page "https://bioconductor.org/packages/AffyCompatible/")
|
(home-page "https://bioconductor.org/packages/AffyCompatible/")
|
||||||
|
|
Loading…
Reference in a new issue