mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18: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
|
||||
`((upstream-name . "AffyCompatible")))
|
||||
(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
|
||||
(list r-biostrings r-rcurl r-xml))
|
||||
(home-page "https://bioconductor.org/packages/AffyCompatible/")
|
||||
|
|
Loading…
Reference in a new issue