tests/testthat/test-get_data.R

In shahreyar-abeer/cranstars: A Shiny app that shows CRAN downloads & Github stars statistics

test_that("get_gh_data() works", {
  repo <- "rstudio/rsconnect"
  expect_is(get_gh_stars(repo), "data.frame")
})

test_that("get_cran_data() works", {
  package_name <- "rsconnect"
  expect_is(get_cran_data(package_name, from = (Sys.Date() - 10)), "data.frame")
})