From 389c6082a440238accdd4e2df864135004dbb806 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Mon, 22 Jan 2024 12:44:46 +0100
Subject: 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 ()
-- 
cgit v1.2.3