tests/testthat/test-mt_read_speed.R

In move2: Processing and Analysing Animal Trajectories

test_that("Files read quick enough", {
  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)
})