tests/testthat/test-test_mirror.R

library(testthat)

test_that("test CRAN mirror works", {
  mirrors= test_mirror(region = 'China')

  # check the result
  expect_s3_class(mirrors, 'data.frame')
  expect_named(mirrors, c('Name', 'URL', 'download_time'))
  expect_true(nrow(mirrors) > 0)
  expect_true(ncol(mirrors) > 0)
})

Try the lulab.utils package in your browser

Any scripts or data that you put into this service are public.

lulab.utils documentation built on Oct. 7, 2024, 5:08 p.m.