tests/test_removeSource.R

source("helper/helper.R")

if (exists("removeSource", envir = getNamespace("utils"))) {
  f = get("removeSource", envir = getNamespace("utils"))
  expect_same = makeCompareFun(f, backports:::removeSource)

  expect_same(mean)
}

Try the backports package in your browser

Any scripts or data that you put into this service are public.

backports documentation built on Dec. 13, 2021, 5:08 p.m.