tests/testthat/test-url-path.R

In campfin: Wrangle Campaign Finance Data

library(testthat)
library(campfin)
library(fs)

test_that("file paths can be created from url basenames", {
  skip_if_offline()
  url <- "https://raw.githubusercontent.com/irworkshop/campfin/master/README.md"
  dir_create("dir")
  path <- url2path(url, "dir")
  download.file(url, path, quiet = TRUE)
  expect_true(file_exists("dir/README.md"))
  dir_delete("dir")
})