tests/testthat/test-get-data.R

In MTES-MCT/didor: Tools to Explore and Download CGDD/SDES Opendata

cache_dir <- tempfile()

test_that("get_data works and cache file", {
  skip_on_cran()
  skip_if_offline()

  get_metadata()

  data <- datasets() %>%
    datafiles() %>%
    last_millesime() %>%
    arrange(rows) %>%
    slice_head()
  nb_of_rows <- data[["rows"]]

  expect_message(
    result <- get_data(data, cache = cache_dir),
    regexp = "downloading data and caching to"
  )

  expect_equal(nb_of_rows, nrow(result))

  for (col in names(result)) {
    expect_named(attributes(result[[col]]), c("name", "description", "unit", "type", "converted"))
  }

  expect_message(
    result <- get_data(data, cache = cache_dir),
    regexp = "reading data from cache"
  )
})

test_that("get_data works with datafiles input", {
  skip_on_cran()
  skip_if_offline()

  get_metadata()

  data <- datasets() %>%
    datafiles() %>%
    last_millesime() %>%
    arrange(rows) %>%
    slice_head()
  nb_of_rows <- data[["rows"]]
  result <- get_data(data %>% select(rid), cache = cache_dir)

  expect_equal(nb_of_rows, nrow(result))
})

test_that("get_data works with concat FALSE", {
  skip_on_cran()
  skip_if_offline()

  get_metadata()

  data <- datasets() %>%
    datafiles() %>%
    last_millesime() %>%
    arrange(rows) %>%
    slice_head()
  result <- get_data(data %>% select(rid), concat = FALSE, cache = cache_dir)

  expect_output(str(result), "List of 1")

  for (col in names(result[[1]])) {
    expect_named(attributes(result[[1]][[col]]), c("name", "description", "unit", "type", "converted"))
  }
})

test_that("get_data returns NULL or list() when feeded empty tibble", {
  skip_on_cran()
  skip_if_offline()

  get_metadata()

  data <- datafiles() %>%
    dido_search("no such string will ever exists")
  result_not_concat <- get_data(data %>% select(rid), concat = FALSE,  cache = cache_dir)
  result_concat <- get_data(data %>% select(rid),  cache = cache_dir)

  expect_output(str(result_not_concat), "list()")
  expect_equal(result_concat, NULL)
})

test_that("get_data fail", {
  expect_error(get_data(), "is mandatory")
  expect_error(get_data(c("a")), "must be a dataframe")
  expect_error(get_data(tibble(name = c(1, 2))), "must have an")
})