inst/application/panel3.R
82c39039
 panel3 <- function(input, output, session, arg) {
     observe({
         if (arg() == "Stop") {
             stopApp()
         }
     })
     
 }