1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
## CRAN reports we create a
# if (!exists("~/.virtualenvs"))
# withr::defer(unlink("~/.virtualenvs", recursive = TRUE), teardown_env())
.oop <- list(
Matrix.warnDeprecatedCoerce = 2L,
warnPartialMatchArgs = TRUE,
warnPartialMatchAttr = TRUE,
warnPartialMatchDollar = TRUE
)
if(getRversion() < "3.6") {
.oop$warnPartialMatchArgs <- NULL
.oop$warnPartialMatchAttr <- NULL
.oop$warnPartialMatchDollar <- NULL
}
.oop <- do.call(options, .oop)
withr::defer(options(.oop), teardown_env())
|
