From 6dbe4b12df46ed4b33e6d8ebf28fd478442dabf3 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Wed, 17 Feb 2021 22:35:13 +0100
Subject: [PATCH] gnu: r-rserve: Install server binary.

Missing Rserve reported by awb99 on #guix.

* gnu/packages/cran.scm (r-rserve)[arguments]: Add an
'install-server-binary phase.
---
 gnu/packages/cran.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index 1fe90619cd..e025ded315 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -23538,6 +23538,17 @@ (define-public r-rserve
         (base32
          "017kkzv9lxlz9qhg3gprrf1wcyflxrif6wjk27x9b4bdzylw6bsx"))))
     (build-system r-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'install-server-binary
+           ;; Makevars tries to install to R's store directory.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin")))
+               (substitute* "src/Makevars.in"
+                 (("\\$\\(R_HOME\\)") out))
+               (mkdir-p bin)))))))
     (propagated-inputs
      `(("r-checkmate" ,r-checkmate)
        ("r-mime" ,r-mime)