tests/testthat/test-download-data-cube.r

In readabs: Download and Tidy Time Series Data from the Australian Bureau of Statistics

test_that("File is downloaded", {
  # Download latest EQ09

  skip_on_cran()
  skip_if_offline()
  check_abs_connection()

  temp_path <- tempdir()

  download_abs_data_cube(
    catalogue_string = "labour-force-australia-detailed-quarterly",
    cube = "EQ09",
    path = temp_path
  )


  # Check file exists
  expect_true(file.exists(file.path(temp_path, "EQ09.xlsx")))


  # Check file can be read
  eq09 <- readxl::read_excel(file.path(temp_path, "EQ09.xlsx"),
    range = "A3",
    col_names = FALSE
  ) %>%
    dplyr::pull()
  expect_equal(TRUE, grepl("Released at 11.30 am", eq09))

  unlink(temp_path)
})