Store context in case objects and display it in the shiny app (#61)

Author: paleolimbot

R/shiny-server.R

@@ -27,6 +27,7 @@ vdiffrServer <- function(cases) {
     validateSingleCase(input, cases)
 
     output$status <- renderStatus(input, cases)
+    output$case_context <- renderCaseContext(input, cases)
 
     quitApp(input)
   })
@@ -179,6 +180,21 @@ validateGroupCases <- function(input, reactive_cases) {
   })
 }
 
+renderCaseContext <- function(input, reactive_cases) {
+  shiny::renderUI({
+    if(length(reactive_cases$active()) > 0 && !is.null(input$case)) {
+      active_case <- reactive_cases$active()[[input$case]]
+      shiny::p(
+        shiny::strong("Context: "),
+        shiny::span(
+          title = active_case$path %||% "",
+          active_case$context %||% "<none>"
+        )
+      )
+    }
+  })
+}
+
 renderStatus <- function(input, reactive_cases) {
   shiny::renderUI({
     cases <- reactive_cases$all

R/shiny-ui.R

@@ -18,6 +18,7 @@ sidebarPanel <- function() {
     shiny::actionButton("group_validation_button", "Validate these"),
     shiny::br(),
     shiny::br(),
+    shiny::uiOutput("case_context"),
     shiny::uiOutput("case_controls"),
     shiny::actionButton("case_validation_button", "Validate this"),
     shiny::uiOutput("status"),

R/testthat-ui.R

@@ -148,7 +148,8 @@ expect_doppelganger <- function(title,
   case <- case(list(
     name = fig_name,
     path = path,
-    testcase = testcase
+    testcase = testcase,
+    context = context
   ))
 
   if (file.exists(path)) {