guix-science: Add rstudio-server-multi-version.

* guix-science/packages/rstudio.scm (rstudio-server-multi-version):
New variable.
*
patches/rstudio-server-multi-version/0001-handleClientInit-Store-R-versions-in-sessionInfo.patch,
patches/rstudio-server-multi-version/0002-sessionProcessConfig-Configure-R-version-from-active.patch,
patches/rstudio-server-multi-version/0003-NewProjectWizard-Unhide-version-selector-widget.patch,
patches/rstudio-server-multi-version/0004-handleConnection-Switch-R-version-when-switching-pro.patch,
patches/rstudio-server-multi-version/0005-Add-version-switcher-widget-to-toolbar.patch,
patches/rstudio-server-multi-version/0006-Look-at-.local-share-rstudio-r-versions-for-custom-R.patch,
patches/rstudio-server-multi-version/0007-detectRLocationsUsingR-Restore-R_HOME-at-the-end.patch:
New files.

1 files changed, 36 insertions, 0 deletions

diff --git a/patches/rstudio-server-multi-version/0007-detectRLocationsUsingR-Restore-R_HOME-at-the-end.patch b/patches/rstudio-server-multi-version/0007-detectRLocationsUsingR-Restore-R_HOME-at-the-end.patch
new file mode 100644
index 0000000..96eb6aa
--- /dev/null
+++ b/patches/rstudio-server-multi-version/0007-detectRLocationsUsingR-Restore-R_HOME-at-the-end.patch
@@ -0,0 +1,36 @@
+From 36ed7d1c0036d40798a3ab5045f365e8e33692f3 Mon Sep 17 00:00:00 2001
+From: Ricardo Wurmus <rekado@elephly.net>
+Date: Sun, 20 Dec 2020 14:49:51 +0100
+Subject: [PATCH 7/7] detectRLocationsUsingR: Restore R_HOME at the end.
+
+This is not needed when detectRLocationsUsingR is only called by the
+server process; for the multi-version feature, however, the rsession
+process is calling it, and its R_HOME may not be unset.
+---
+ src/cpp/core/r_util/REnvironmentPosix.cpp | 3 +++
+ 1 file changed, 3 insertions(+)
+
+diff --git a/src/cpp/core/r_util/REnvironmentPosix.cpp b/src/cpp/core/r_util/REnvironmentPosix.cpp
+index 83b60d7a1b..a909631e25 100644
+--- a/src/cpp/core/r_util/REnvironmentPosix.cpp
++++ b/src/cpp/core/r_util/REnvironmentPosix.cpp
+@@ -489,6 +489,7 @@ bool detectRLocationsUsingR(const std::string& rScriptPath,
+    // (the normal semantics of invoking the R script are that it overwrites
+    // R_HOME and prints a warning -- this warning is co-mingled with the
+    // output of R and messes up our parsing)
++   std::string oldRHome = core::system::getenv("R_HOME");
+    core::system::setenv("R_HOME", "");
+ 
+    // if no R path was specified for a module, the module binary path MUST be specified
+@@ -598,6 +599,8 @@ bool detectRLocationsUsingR(const std::string& rScriptPath,
+       return false;
+    }
+ 
++   // restore R_HOME
++   core::system::setenv("R_HOME", oldRHome);
+    return true;
+ }
+ #endif
+-- 
+2.31.1
+