1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
source("incl/start.R")
r_version_has_bug18119 <- function() {
parallelly:::r_version_has_bug18119(force = TRUE)
}
affected_by_bug18119 <- function() {
parallelly:::affected_by_bug18119(force = TRUE)
}
message("*** R bug #18119 ...")
has <- r_version_has_bug18119()
message("r_version_has_bug18119(<current>): ", has)
Sys.setenv(R_PARALLELLY_R_VERSION="3.5.3")
has <- r_version_has_bug18119()
message("r_version_has_bug18119(<R 3.5.3>): ", has)
stopifnot(!has)
Sys.setenv(R_PARALLELLY_R_VERSION="4.0.0")
has <- r_version_has_bug18119()
message("r_version_has_bug18119(<R 4.0.0>): ", has)
stopifnot(has)
Sys.setenv(R_PARALLELLY_R_VERSION="4.0.5")
has <- r_version_has_bug18119()
message("r_version_has_bug18119(<R 4.0.5>): ", has)
stopifnot(has)
Sys.setenv(R_PARALLELLY_R_VERSION="4.1.0")
has <- r_version_has_bug18119()
message("r_version_has_bug18119(<R 4.1.0>): ", has)
stopifnot(has)
Sys.setenv(R_PARALLELLY_R_VERSION="4.1.1")
has <- r_version_has_bug18119()
message("r_version_has_bug18119(<R 4.1.1>): ", has)
stopifnot(!has)
Sys.setenv(R_PARALLELLY_R_VERSION="4.2.0")
has <- r_version_has_bug18119()
message("r_version_has_bug18119(<R 4.2.0>): ", has)
stopifnot(!has)
message("*** R bug #18119 ... DONE")
source("incl/end.R")
|
