From 9ac9bc6051374f4faa3e43fd89b70fc7a73c5bf4 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 26 Jul 2021 09:25:20 +0200 Subject: gnu: r-with-tests: Hardcode path to coreutils’ rm MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit When running R in a container like this guix environment --no-cwd -C --ad-hoc r-minimal -- Rscript -e 'Sys.timezone()' it would print an additional line sh: rm: command not found before exiting. * gnu/packages/statistics.scm (r-with-tests) [#:phases]: Add substitute* to patch call to `rm` and rename phase to reflect what it does now. --- gnu/packages/statistics.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'gnu/packages/statistics.scm') diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index ce9f1bf888..7ba7d9f20d 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -213,12 +213,15 @@ This package also provides @command{xls2csv} to export Excel files to CSV.") (substitute* "src/library/base/makebasedb.R" (("compress = TRUE") "compress = FALSE")) #t)) - (add-before 'configure 'patch-uname + (add-before 'configure 'patch-coreutils-paths (lambda* (#:key inputs #:allow-other-keys) - (let ((uname-bin (string-append (assoc-ref inputs "coreutils") - "/bin/uname"))) + (let* ((coreutils (assoc-ref inputs "coreutils")) + (uname-bin (string-append coreutils "/bin/uname")) + (rm-bin (string-append coreutils "/bin/rm"))) (substitute* "src/scripts/R.sh.in" - (("uname") uname-bin))) + (("uname") uname-bin)) + (substitute* "src/unix/sys-std.c" + (("rm -Rf ") (string-append rm-bin " -Rf ")))) #t)) (add-after 'unpack 'build-reproducibly (lambda _ -- cgit v1.2.3