Add ability to see validated cases in app

Author: nathancday

R/cases-ui.R

@@ -9,7 +9,7 @@
 #' @export
 manage_cases <- function(package = ".", filter = NULL, ..., options = list()) {
   cases <- collect_cases(package, filter = filter)
-  cases <- filter_cases(cases, c("new_case", "mismatch_case", "orphaned_case"))
+  cases <- filter_cases(cases, c("new_case", "mismatch_case", "orphaned_case", "success_case"))
 
   vdiffrApp <- shiny::shinyApp(
     ui = vdiffrUi(cases),
@@ -28,7 +28,7 @@ manage_cases <- function(package = ".", filter = NULL, ..., options = list()) {
 vdiffrAddin <- function() {
   pkg_path <- rstudioapi::getActiveProject() %||% "."
   cases <- collect_cases(pkg_path)
-  cases <- filter_cases(cases, c("new_case", "mismatch_case", "orphaned_case"))
+  cases <- filter_cases(cases, c("new_case", "mismatch_case", "orphaned_case", "success_case"))
 
   vdiffrApp <- shiny::shinyApp(
     ui = vdiffrUi(cases),

R/cases.R

@@ -173,6 +173,12 @@ print.cases <- function(x, ...) {
     cat("\nNew:\n")
     print_cases_names(new)
   }
+  
+  success <- filter_cases(x, "success_case")
+  if (length(success) > 0) {
+    cat("\nValidated:\n")
+    print_cases_names(success)
+  }
 
   orphaned <- filter_cases(x, "orphaned_case")
   if (length(orphaned) > 0) {

R/shiny-server.R

@@ -1,6 +1,6 @@
 
 vdiffrServer <- function(cases) {
-  shiny::shinyServer(function(input, output) {
+  shiny::shinyServer(function(input, output, session) {
     cases <- shiny::reactiveValues(all = cases)
     cases$active <- shiny::reactive({
       type <- input$type %||% "new_case"
@@ -28,6 +28,8 @@ vdiffrServer <- function(cases) {
 
     output$status <- renderStatus(input, cases)
     output$case_context <- renderCaseContext(input, cases)
+    
+    toggleValidateBtns(input, session)
 
     quitApp(input)
   })
@@ -39,7 +41,8 @@ diff_text_watcher <- function(input) {
 
 prettify_types <- function(x) {
   ifelse(x == "mismatch_case", "Mismatched",
-  ifelse(x == "new_case", "New", "Orphaned"
+  ifelse(x == "new_case", "New",
+  ifelse(x == "success_case", "Validated", "Orphaned")
   ))
 }
 
@@ -51,6 +54,7 @@ renderTypeInput <- function(input, reactive_cases) {
     if (length(types) == 0) {
       return(NULL)
     }
+
     types <- set_names(types, prettify_types(types))
 
     shiny::selectInput(
@@ -218,6 +222,14 @@ renderStatus <- function(input, reactive_cases) {
   })
 }
 
+toggleValidateBtns <- function(input, session) {
+  shiny::observeEvent(input$type, {
+    req(input$type)
+    message <- input$type == "success_case"
+    session$sendCustomMessage("toggle-validate-btns-handler", message)
+  })
+}
+
 quitApp <- function(input) {
   shiny::observe({
     if (input$quit_button > 0) {

inst/www/toggle.js

@@ -7,3 +7,10 @@ document.addEventListener('toggled', function(event) {
     status.innerHTML = 'After';
   }
 });
+
+// Disable/Enable validate buttons
+Shiny.addCustomMessageHandler('toggle-validate-btns-handler', toggleBtns);
+function toggleBtns(message) {
+  document.getElementById('group_validation_button').disabled = message;
+  document.getElementById('case_validation_button').disabled = message;
+}