gnu: r-biocparallel: Build reproducibly.

* gnu/packages/bioconductor.scm (r-biocparallel)[arguments]: Add phase
"make-reproducible".
This commit is contained in:
Ricardo Wurmus 2021-03-15 23:31:58 +01:00
parent d99a18252c
commit 8f9fd9b70c
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -1705,6 +1705,34 @@ (define-public r-biocparallel
(properties
`((upstream-name . "BiocParallel")))
(build-system r-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'make-reproducible
(lambda _
;; Remove generated documentation.
(for-each delete-file
'("inst/doc/BiocParallel_BatchtoolsParam.pdf"
"inst/doc/Introduction_To_BiocParallel.pdf"
"inst/doc/Errors_Logs_And_Debugging.pdf"
"inst/doc/BiocParallel_BatchtoolsParam.R"
"inst/doc/Introduction_To_BiocParallel.R"
"inst/doc/Errors_Logs_And_Debugging.R"))
;; Remove time-dependent macro
(substitute* '("inst/doc/BiocParallel_BatchtoolsParam.Rnw"
"inst/doc/Introduction_To_BiocParallel.Rnw"
"inst/doc/Errors_Logs_And_Debugging.Rnw"
"vignettes/BiocParallel_BatchtoolsParam.Rnw"
"vignettes/Introduction_To_BiocParallel.Rnw"
"vignettes/Errors_Logs_And_Debugging.Rnw")
(("\\today") "later"))
;; Initialize the random number generator seed when building.
(substitute* "R/internal_rng_stream.R"
(("\"L'Ecuyer-CMRG\"\\)" m)
(string-append
m "; if (!is.na(Sys.getenv(\"SOURCE_DATE_EPOCH\"))) {set.seed(100)}\n"))))))))
(propagated-inputs
`(("r-futile-logger" ,r-futile-logger)
("r-snow" ,r-snow)