Use modify_if() so we don't lose the attributes

Author: lionel-

R/cases.R

@@ -140,6 +140,8 @@ delete_orphaned_cases <- function(cases = collect_orphaned_cases()) {
   walk(paths, file.remove)
 }
 
+# It is brittle to keep `pkg_path` in attributes. Maybe change to an
+# R6 object?
 cases <- function(x, pkg_path, deps = NULL) {
   structure(x,
     class = "cases",

R/shiny-server.R

@@ -3,6 +3,7 @@ vdiffrServer <- function(cases) {
   shiny::shinyServer(function(input, output, session) {
     cases <- shiny::reactiveValues(all = cases)
     cases$active <- shiny::reactive({
+      stopifnot(is_string(attr(cases$all, "pkg_path")))
       type <- input$type %||% "new_case"
       filter_cases(cases$all, type)
     })
@@ -177,7 +178,7 @@ validateGroupCases <- function(input, reactive_cases, session) {
 
       withdraw_cases(active_cases)
       idx <- purrr::map_lgl(cases, inherits, type)
-      cases <- purrr::map_if(cases, idx, success_case)
+      cases <- purrr::modify_if(cases, idx, success_case)
 
       shiny::isolate(reactive_cases$all <- cases)
     }