02/55: import/cran: Set HOME when ExperimentHub is among the inputs.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 389c6082a440238accdd4e2df864135004dbb806
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Mon Jan 22 12:44:46 2024 +0100

    import/cran: Set HOME when ExperimentHub is among the inputs.
    
    * guix/import/cran.scm (phases-for-inputs): Add 'set-HOME phase when
    ExperimentHub is among inputs.
    
    Change-Id: Ie3a2443934704eed8694a76a651b806209722421
---
 guix/import/cran.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index d49bd96c9a..db9250faec 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -677,7 +677,9 @@ of META, a package in REPOSITORY."
 of package names for all input packages."
   (let ((rules
          (list (lambda ()
-                 (and (member "styler" input-names)
+                 (and (any (lambda (name)
+                             (member name '("styler" "ExperimentHub")))
+                           input-names)
                       '(add-after 'unpack 'set-HOME
                          (lambda _ (setenv "HOME" "/tmp")))))
                (lambda ()