From e01a9bcb88aa9a50201331b2b81c34bb41845e3e Mon Sep 17 00:00:00 2001
From: shikokuchuo <53399081+shikokuchuo@users.noreply.github.com>
Date: Thu, 5 Sep 2024 11:20:04 +0100
Subject: [PATCH] correct R.home() include and share paths

---
 DESCRIPTION        | 2 +-
 R/compilation-db.R | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 70e0dc8..41f2d7e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -47,4 +47,4 @@ Config/testthat/parallel: TRUE
 Config/testthat/start-first: dll
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
diff --git a/R/compilation-db.R b/R/compilation-db.R
index 0a82f1c..dcae474 100644
--- a/R/compilation-db.R
+++ b/R/compilation-db.R
@@ -191,8 +191,8 @@ compilers <- function() {
   # These variables are normally set by frontends but just in case
   env <- c(
     "current",
-    R_INCLUDE_DIR = Sys.getenv("R_INCLUDE_DIR", unset = fs::path(R.home(), "include")),
-    R_SHARE_DIR = Sys.getenv("R_SHARE_DIR", unset = fs::path(R.home(), "share"))
+    R_INCLUDE_DIR = Sys.getenv("R_INCLUDE_DIR", unset = R.home("include")),
+    R_SHARE_DIR = Sys.getenv("R_SHARE_DIR", unset = R.home("share"))
   )
 
   pkgbuild::with_build_tools(