tests/testthat/test-appdir.R

In hadley/rappdirs: Application Directories: Determine Where to Save Data, Caches, and Logs

test_that("appdir works as expected", {
  expect_snapshot({
    app <- app_dir("ggplot2", "hadley", os = "mac")
    app$cache()
    app$log()
    app$data()
    app$config()
    app$site_data()
    app$site_config()
  })
})