tests/testthat/test-github.R

In available: Check if the Title of a Package is Available, Appropriate and Interesting

context("Load packages from GitHub")

test_that("Can find ", {
  skip_on_cran()

  expect_false(available_on_github("svrepmisc")$available)
})

test_that("Can't find made up package", {
  skip_on_cran()

  expect_true(available_on_github("This_is_not_a_pkg")$available)
})