1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
diff -Naur R-3.2.2-upstream/tests/reg-packages.R R-3.2.2/tests/reg-packages.R
--- R-3.2.2-upstream/tests/reg-packages.R 2015-08-05 17:45:05.000000000 -0430
+++ R-3.2.2/tests/reg-packages.R 2015-10-01 02:11:05.484992903 -0430
@@ -82,7 +82,8 @@
## pkgB tests an empty R directory
dir.create(file.path(pkgPath, "pkgB", "R"), recursive = TRUE,
showWarnings = FALSE)
-p.lis <- if("Matrix" %in% row.names(installed.packages(.Library)))
+matrixIsInstalled <- "Matrix" %in% row.names(installed.packages(.Library))
+p.lis <- if(matrixIsInstalled)
c("pkgA", "pkgB", "exNSS4") else "exNSS4"
for(p. in p.lis) {
cat("building package", p., "...\n")
@@ -111,8 +112,8 @@
tools::assertError(is.null(pkgA:::nilData))
}
-if(dir.exists(file.path("myLib", "exNSS4"))) {
- for(ns in c("pkgB", "pkgA", "Matrix", "exNSS4")) unloadNamespace(ns)
+if(matrixIsInstalled && dir.exists(file.path("myLib", "exNSS4"))) {
+ for(ns in c(rev(p.lis), "Matrix")) unloadNamespace(ns)
## Both exNSS4 and Matrix define "atomicVector" *the same*,
## but 'exNSS4' has it extended - and hence *both* are registered in cache -> "conflicts"
requireNamespace("exNSS4", lib= "myLib")
|