tests/testthat/test-check_file_exists.R

test_that("use", {
  filename <- tempfile()
  file.create(filename)
  expect_true(file.exists(filename))
  expect_silent(filename)
  file.remove(filename)
  expect_false(file.exists(filename))
  expect_error(check_file_exists(filename))
  expect_error(check_file_exists(filename), filename)
})
richelbilderbeek/mhcnuggetsr documentation built on Nov. 9, 2023, 10 p.m.