From 64ce3d9e6f5b63c3aed2f255d31b9ffe20f46fcd Mon Sep 17 00:00:00 2001
From: Christophe Dervieux <christophe.dervieux@gmail.com>
Date: Wed, 16 Sep 2020 18:09:33 +0200
Subject: [PATCH] debug should also be taken into account with Rtools 4.0

---
 R/rtools.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/rtools.R b/R/rtools.R
index 025672e..c7e82dc 100644
--- a/R/rtools.R
+++ b/R/rtools.R
@@ -32,6 +32,8 @@ has_rtools <- function(debug = FALSE) {
   if(is_R4()){
     rtools40_home <- Sys.getenv('RTOOLS40_HOME', 'C:\\rtools40')
     if(file.exists(file.path(rtools40_home, 'usr', 'bin'))){
+      if (debug)
+        cat("Found in Rtools 4.0 installation folder\n")
       rtools_path_set(rtools(rtools40_home, '4.0'))
       return(TRUE)
     }