From 8ad53e3dd24aca2bac0d36e52eaafab38b99d1cf Mon Sep 17 00:00:00 2001
From: Florian Angerer <florian.angerer@oracle.com>
Date: Fri, 23 Feb 2018 19:40:20 +0100
Subject: [PATCH] Remove obsolete function 'system.install'.
---
.../r/install.packages.R | 15 ---------------
1 file changed, 15 deletions(-)
diff --git a/com.oracle.truffle.r.test.packages/r/install.packages.R b/com.oracle.truffle.r.test.packages/r/install.packages.R
index 521ac7415d..f6922af4db 100644
--- a/com.oracle.truffle.r.test.packages/r/install.packages.R
+++ b/com.oracle.truffle.r.test.packages/r/install.packages.R
@@ -788,21 +788,6 @@ gnu_rscript <- function() {
}
}
-system.install <- function(pkgname) {
- script <- normalizePath("com.oracle.truffle.r.test.packages/r/install.package.R")
- if (is.fastr()) {
- rscript = file.path(R.home(), "bin", "Rscript")
- } else {
- rscript = gnu_rscript()
- }
- args <- c(script, pkgname, paste0(contrib.url(getOption("repos"), "source"), collapse=","), lib.install, as.character(pkg.cache$enabled))
- if (pkg.cache$enabled) {
- args <- c(args, pkg.cache$version, pkg.cache$dir)
- }
- rc <- system2(rscript, args)
- rc
-}
-
check.create.dir <- function(name) {
if (!file.exists(name)) {
if (!dir.create(name)) {
--
GitLab