tests/test_file.mode.R

source("helper/helper.R")

if (exists("file.mode", envir = baseenv())) {
  f = get("file.mode", envir = baseenv())
  expect_same = makeCompareFun(f, backports:::file.mode)

  expect_same(R.home())
  expect_same(file.path(R.home(), "COPYING"))
}

Try the backports package in your browser

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

backports documentation built on April 3, 2026, 9:07 a.m.