tests/testthat/test-mt_read_speed.R

In move2: Processing and Analysing Animal Trajectories

test_that("Files read quick enough", {
  skip("Temporarily disabled")
  skip_if_offline()
  skip_on_cran()
  skip_on_covr()
  if (file.exists("~/ownCloudUva/Galapagos Albatrosses.csv")) {
    # nolint
    file <- "~/ownCloudUva/Galapagos Albatrosses.csv" # nolint
    ref_speed <- 1.5
  } else {
    file <- tempfile(fileext = ".csv")
    ref_speed <- 2.0
    download.file(
      "https://surfdrive.surf.nl/files/index.php/s/RJp7FcbmSjb6qwZ/download",
      file,
      quiet = TRUE
    )
  }
  expect_lt(system.time(mt_read(file))["elapsed"], ref_speed)
})