Merge pull request #54 from ilarischeinin/quit-button

Add a quit button to the shiny app user interface

Author: lionel-

R/shiny-server.R

@@ -27,6 +27,8 @@ vdiffrServer <- function(cases) {
     validateSingleCase(input, cases)
 
     output$status <- renderStatus(input, cases)
+
+    quitApp(input)
   })
 }
 
@@ -199,3 +201,11 @@ renderStatus <- function(input, reactive_cases) {
     list(shiny::br(), paragraph)
   })
 }
+
+quitApp <- function(input) {
+  shiny::observe({
+    if (input$quit_button > 0) {
+      shiny::stopApp()
+    }
+  })
+}

R/shiny-ui.R

@@ -21,7 +21,9 @@ sidebarPanel <- function() {
     shiny::uiOutput("case_controls"),
     shiny::actionButton("case_validation_button", "Validate this"),
     shiny::uiOutput("status"),
-    shiny::uiOutput("diff_text_controls")
+    shiny::uiOutput("diff_text_controls"),
+    shiny::br(),
+    shiny::actionButton("quit_button", "Quit")
   )
 }