From c0716c0218a502e8d5d4f734e1511b85be22c3c2 Mon Sep 17 00:00:00 2001
From: Lorenz Walthert <lorenz.walthert@icloud.com>
Date: Fri, 25 Nov 2022 10:29:00 +0100
Subject: [PATCH] only append .exe suffix on Windows if the executable is
 called with the full path

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

diff --git a/pre_commit/languages/r.py b/pre_commit/languages/r.py
index 8e7779013..9bde69107 100644
--- a/pre_commit/languages/r.py
+++ b/pre_commit/languages/r.py
@@ -62,11 +62,10 @@ def _prefix_if_non_local_file_entry(
 
 def _rscript_exec() -> str:
     r_home = os.environ.get('R_HOME')
-    program = win_exe(RSCRIPT_PROGRAM)
     if r_home is None:
-        return program
+        return RSCRIPT_PROGRAM
     else:
-        return os.path.join(r_home, 'bin', program)
+        return os.path.join(r_home, 'bin', win_exe(RSCRIPT_PROGRAM))
 
 
 def _entry_validate(entry: Sequence[str]) -> None: