Add invert argument to collect_cases() and manage_cases() (#82)

Author: karawoo

R/cases-ui.R

@@ -4,11 +4,13 @@
 #' @inheritParams shiny::shinyApp
 #' @param package Package description, can be path or package
 #'   name. See [devtools::as.package()] for more information.
+#' @param invert should the regexp supplied to `filter` be inverted? Defaults to `FALSE`.
 #' @param ... Unused.
 #' @seealso [vdiffrAddin()], [collect_cases()], and [validate_cases()]
 #' @export
-manage_cases <- function(package = ".", filter = NULL, ..., options = list()) {
-  cases <- collect_cases(package, filter = filter)
+manage_cases <- function(package = ".", filter = NULL,
+                         invert = FALSE, ..., options = list()) {
+  cases <- collect_cases(package, filter = filter, invert = invert)
   cases <- filter_cases(cases, c("new_case", "mismatch_case", "orphaned_case", "success_case"))
 
   vdiffrApp <- shiny::shinyApp(

R/cases.R

@@ -10,14 +10,21 @@
 #'   `collect_mismatched_cases()` and `collect_orphaned_cases()`
 #'   return a filtered `cases` object.
 #' @export
-collect_cases <- function(package = ".", filter = NULL) {
+collect_cases <- function(package = ".", filter = NULL, invert = FALSE) {
   on.exit(set_active_collecter(NULL))
 
   message("Running testthat to collect visual cases\n\n",
     "  N = New visual case\n  X = Failed doppelganger\n  o = Successful doppelganger\n")
   package <- devtools::as.package(package)
   reporter <- vdiffrReporter$new(package$path)
-  suppressMessages(devtools::test(package, filter = filter, reporter = reporter))
+  suppressMessages(
+    devtools::test(
+      package,
+      filter = filter,
+      reporter = reporter,
+      invert = invert
+    )
+  )
 
   cases <- active_collecter()$get_cases()
 

man/collect_cases.Rd

@@ -0,0 +1,17 @@
+context("Filtering")
+
+test_that("Can filter to test certain cases", {
+  mock_pkg_dir <- create_mock_pkg("mock-pkg")
+  mock_test_dir <- file.path(mock_pkg_dir, "tests", "testthat")
+  cases <- collect_cases(mock_test_dir, filter = "ggplot")
+  case_contexts <- purrr::map_chr(cases, "context")
+  expect_true(all(case_contexts == "ggplot"))
+})
+
+test_that("Can invert filtering of test cases", {
+  mock_pkg_dir <- create_mock_pkg("mock-pkg")
+  mock_test_dir <- file.path(mock_pkg_dir, "tests", "testthat")
+  cases <- collect_cases(mock_test_dir, filter = "ggplot", invert = TRUE)
+  case_contexts <- purrr::map_chr(cases, "context")
+  expect_false("ggplot" %in% case_contexts)
+})