tests/testthat/setup.R

## 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())
rstudio/reticulate documentation built on May 20, 2024, 5:30 p.m.