bakaniko / baacker Goto Github PK

temp_dir <- tempdir()

files <- c(
  "caracteristiques-2018.csv",
  "lieux-2018.csv",
  "usagers-2018.csv",
  "vehicules-2018.csv"
)

files <-  paste0(temp_dir, '/', files)

dl_files <- baacker::get_raw_datasets(year = c(2018), path = temp_dir)

# Test if the downloaded files has the expected size
testthat::expect_equal(dl_files,
  files)

test_that("get_raw_datasets returns path to the downloaded files", {

  temp_dir <- tempdir()

  files <- c(
    "caracteristiques-2018.csv",
    "lieux-2018.csv",
    "usagers-2018.csv",
    "vehicules-2018.csv"
  )

  files <-  paste0(temp_dir, '/', files)


  # Test if the downloaded files has the expected size
  expect_equal(
    baacker::get_raw_datasets(year = c(2018), path = temp_dir),
    files)
})