validated cases update in ui

r-lib · Jun 6, 2019 · 6a86979 · 6a86979
1 parent dd9471a
commit 6a86979
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/R/shiny-server.R b/R/shiny-server.R
@@ -156,8 +156,8 @@ validateSingleCase <- function(input, reactive_cases) {
       case <- shiny::isolate(input$case)
 
       withdraw_cases(cases[case])
-      cases <- cases[-match(case, names(cases))]
-
+      cases[[case]] <- success_case(cases[[case]])
+      
       shiny::isolate(reactive_cases$all <- cases)
     }
   })
@@ -173,10 +173,8 @@ validateGroupCases <- function(input, reactive_cases) {
         type <- shiny::isolate(input$type)
 
         withdraw_cases(active_cases)
-
-        case_types <- c("new_case", "mismatch_case", "orphaned_case")
-        types <- case_types[!case_types == type]
-        cases <- filter_cases(cases, types)
+        idx <- sapply(cases, inherits, type)
+        cases[idx] <- lapply(cases[idx], success_case)
 
         shiny::isolate(reactive_cases$all <- cases)
       }