From 70d3410bbf8cab28ae8175e9d75e158e1181bd77 Mon Sep 17 00:00:00 2001
From: Stefan Anzinger <stefan.anzinger@oracle.com>
Date: Fri, 10 Aug 2018 15:52:27 +0200
Subject: [PATCH] Create package cache directories recursive.
---
com.oracle.truffle.r.test.packages/r/install.cache.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/com.oracle.truffle.r.test.packages/r/install.cache.R b/com.oracle.truffle.r.test.packages/r/install.cache.R
index 7027b5f9cd..d138bdf2be 100644
--- a/com.oracle.truffle.r.test.packages/r/install.cache.R
+++ b/com.oracle.truffle.r.test.packages/r/install.cache.R
@@ -197,7 +197,7 @@ pkg.cache.insert <- function(pkg.cache.env, pkg, lib) {
# Create version directory if inexisting
if (!dir.exists(version.dir)) {
log.message("creating version directory ", version.dir, level=1)
- dir.create(version.dir)
+ dir.create(version.dir, recursive=T)
}
# lock version directory
@@ -308,7 +308,7 @@ pkg.cache.init <- function(cache.dir, version, table.file.name, cache.size) {
log.message("creating cache directory ", cache.dir, level=1)
tryCatch({
- dir.create(cache.dir)
+ dir.create(cache.dir, recursive=T)
}, error = function(e) {
log.message("could create package cache dir '", cache.dir, "' because: ", e$message)
})
--
GitLab