tests/testthat.R

In sentopics: Tools for Joint Sentiment and Topic Analysis of Textual Data

library("testthat")
library("sentopics")

if (Sys.getenv("R_COVR") != "true") {
  test_check("sentopics")
} else {
  test_check("sentopics", reporter = default_reporter())
  # test_check("sentopics", reporter = LocationReporter)
}

# setwd("tests")
# print(test_check("sentopics", reporter = ListReporter))
# getwd()
# e <- covr::package_coverage(quiet = FALSE, clean = FALSE)
# attr(e, "library")