tests/testthat/test_readMyFile.R

testthat::test_that("Test readMyFile", {
  temp_file <- tempfile(fileext = ".csv")
  write.csv(mtcars, temp_file)
  res <- readMyFile(temp_file)
  testthat::expect_true(is.data.frame(res))
})

Try the netknitr package in your browser

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

netknitr documentation built on April 3, 2025, 5:47 p.m.