skip_on_cran()是你需要的。

test_that("skip example", {
  expect_equal(1, 1L)    # this expectation runs
  skip_on_cran()
  expect_equal(1, 2)     # this one skipped
  expect_equal(1, 3)     # this one is also skipped
})

编辑

您没有使用testthat。您可以：

notOnCRAN <- function() {
  identical(Sys.getenv("NOT_CRAN"), "true")
}

并将测试放在if(notOnCRAN()) { ...... }中。

编辑

不...也许：

notOnCRAN <- function() {
  !identical(Sys.getenv("_R_CHECK_CRAN_INCOMING_"), "true")
}