tests/testthat/test-updated_installed_packages.R

In emeyers/SDS230: Tools for the class Data Exploration and Analysis

test_that("update_installed_packages() works", {

  xkcd_package_installed <- "xkcd" %in% installed.packages()[, 1]

  if (xkcd_package_installed ) {
    remove.packages("xkcd")
  }

  update_installed_packages()

  expect_true("xkcd" %in% installed.packages()[, 1])

  # if the xkcd package was not installed prior to testing then remove it
  if (!xkcd_package_installed) {
    remove.packages("xkcd")
  }

})


test_that("can reinstall the package", {

  reinstall_package()

})