tests/testthat/test-stow.R

In dpkg: Create, Stow, and Read Data Packages

test_that("stow_info() and friends work", {
  withr::local_envvar(R_USER_DATA_DIR = tempfile("stow"))

  ## Sys.setenv(R_USER_DATA_DIR = tempfile("stow"))

  expect_identical(fs::path_file(stow_path()), "stow")

  expect_true(grepl("Rtmp", stow_path(), fixed = TRUE))

  stow("https://github.com/geomarker-io/appc/releases/download/v0.1.0/nei_2020.rds") |>
    expect_identical(stow_path("nei_2020.rds"))

  stow_size("nei_2020.rds") |>
    expect_identical(structure(2883974, class = c("fs_bytes", "numeric")))

  stow_remove("nei_2020.rds")
  expect_true(!stow_exists("nei_2020.rds"))

  stow_remove(.delete_stow_dir_confirm = TRUE)
  expect_identical(nrow(stow_info()), 0L)

})