tests/testthat/test-server_utils.R

testthat::test_that("create directory works", {
  create_dir(file.path(tempdir(), "new"))
  testthat::expect_true(dir.exists(file.path(tempdir(), "new")))
  
  # delete new directory
  unlink(file.path(tempdir(), "new"), recursive=TRUE)
})

Try the handwriterApp package in your browser

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

handwriterApp documentation built on April 3, 2025, 8:45 p.m.