tests/testthat/test-bfs_download_asset.R

test_that("bfs_download_asset() works", {
  tmp <- tempfile()
  asset_path <- bfs_download_asset(number_asset = "24025646", destfile = tmp)
  expect_true(file.exists(asset_path))
})

Try the BFS package in your browser

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

BFS documentation built on Sept. 20, 2023, 5:07 p.m.