From 55b6d60f361666ca7c37c42c29a0b7b133267a68 Mon Sep 17 00:00:00 2001
From: Lionel Henry <lionel.hry@proton.me>
Date: Mon, 25 Nov 2024 19:10:39 +0100
Subject: [PATCH] Fix `R_HOME` joining

---
 crates/harp/src/command.rs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/crates/harp/src/command.rs b/crates/harp/src/command.rs
index 2c09ecfe6..dac1e7153 100644
--- a/crates/harp/src/command.rs
+++ b/crates/harp/src/command.rs
@@ -27,7 +27,7 @@ where
     // If `R_HOME` is defined use that
     let locations = COMMAND_R_LOCATIONS.map(|loc| {
         if let Ok(r_home) = std::env::var("R_HOME") {
-            std::path::Path::new(&r_home).join(loc)
+            std::path::Path::new(&r_home).join("bin").join(loc)
         } else {
             std::path::Path::new(loc).to_path_buf()
         }