From ba496b836911be1a5f139182fc118ef8b2f873a1 Mon Sep 17 00:00:00 2001
From: Lorenz Walthert <lorenz.walthert@icloud.com>
Date: Sat, 11 Dec 2021 18:35:57 +0100
Subject: [PATCH] better r path detection

---
 pre_commit/languages/r.py | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/pre_commit/languages/r.py b/pre_commit/languages/r.py
index d573775f..74ecc6a8 100644
--- a/pre_commit/languages/r.py
+++ b/pre_commit/languages/r.py
@@ -54,6 +54,12 @@ def _prefix_if_non_local_file_entry(
             path = prefix.path(entry[1])
         return (path,)
 
+def _rscript_exec():
+    """
+    When invoked in a sub-process of R, use full path
+    """
+    return os.path.join(os.getenv('R_HOME', ""), 'Rscript')
+
 
 def _entry_validate(entry: Sequence[str]) -> None:
     """
@@ -95,8 +101,9 @@ def install_environment(
         os.makedirs(env_dir, exist_ok=True)
         shutil.copy(prefix.path('renv.lock'), env_dir)
         shutil.copytree(prefix.path('renv'), os.path.join(env_dir, 'renv'))
+        
         cmd_output_b(
-            'Rscript', '--vanilla', '-e',
+            _rscript_exec(), '--vanilla', '-e',
             f"""\
             prefix_dir <- {prefix.prefix_dir!r}
             options(
@@ -130,7 +137,7 @@ def install_environment(
         if additional_dependencies:
             with in_env(prefix, version):
                 cmd_output_b(
-                    'Rscript', *RSCRIPT_OPTS, '-e',
+                    _rscript_exec(), *RSCRIPT_OPTS, '-e',
                     'renv::install(commandArgs(trailingOnly = TRUE))',
                     *additional_dependencies,
                     cwd=env_dir,