From 1261bf83b85187781b5dc062a04b7dcf3b3caf1c Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sun, 1 Dec 2024 09:04:46 +0100
Subject: [PATCH] import/cran: Also add set-HOME phase when R.cache exists.

* guix/import/cran.scm (phases-for-inputs): Add "R.cache" to the list.

Change-Id: Ia65beb7cd535de10b024d108a97db0169045fe1f
---
 guix/import/cran.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index 8df867b6d03a015286abc1085dfdd4db8801bdfc..01fb8552f97a37ba867fe3b79417ef5c5ddb198c 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -787,7 +787,11 @@ of package names for all input packages."
   (let ((rules
          (list (lambda ()
                  (and (any (lambda (name)
-                             (member name '("styler" "ExperimentHub" "R.rsp")))
+                             (member name
+                                     '("styler"
+                                       "ExperimentHub"
+                                       "R.cache"
+                                       "R.rsp")))
                            input-names)
                       '(add-after 'unpack 'set-HOME
                          (lambda _ (setenv "HOME" "/tmp")))))