branch r-updates updated: gnu: r-mpo-db: Avoid internet access during build.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

rekado pushed a commit to branch r-updates
in repository guix.

The following commit(s) were added to refs/heads/r-updates by this push:
     new 056321d449 gnu: r-mpo-db: Avoid internet access during build.
056321d449 is described below

commit 056321d44986f46372ba8f00402b72d4c8a35765
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Fri Nov 3 19:08:19 2023 +0100

    gnu: r-mpo-db: Avoid internet access during build.
    
    * gnu/packages/bioconductor.scm (r-mpo-db)[arguments]: Add phase 'set-HOME 
and
    'avoid-internet-access.
    
    Change-Id: I7423b7503c2023e0e5a4bcb969bc3d43b75e574d
---
 gnu/packages/bioconductor.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index a724f64f8a..dbd028afa9 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -153,6 +153,21 @@ It retrieves this data from the Genome Aggregation Database
         (base32 "0x1rcikg189akbd71yh0p02482km9hry6i69s2srdf5mlgqficvl"))))
     (properties `((upstream-name . "MPO.db")))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         ;; Needed for annotationhub
+         (add-after 'unpack 'set-HOME
+           (lambda _
+             (setenv "HOME" "/tmp")))
+         (add-after 'unpack 'avoid-internet-access
+           (lambda _
+             (setenv "GUIX_BUILD" "yes")
+             (substitute* "R/zzz.R"
+               (("ah <- suppressMessages\\(AnnotationHub\\(\\)\\)" m)
+                (string-append
+                 "if (Sys.getenv(\"GUIX_BUILD\") == \"yes\") { return(TRUE); 
}; " m))))))))
     (propagated-inputs
      (list r-annotationdbi r-annotationhub r-biocfilecache r-dbi))
     (native-inputs (list r-knitr))