From c7f5f7e6f8c4bd70fda868cb782d3a9d39454515 Mon Sep 17 00:00:00 2001
From: Taha Ahmed <taha@ASKS2>
Date: Mon, 13 Jan 2014 11:21:15 +0100
Subject: [PATCH] The integration between chertex.sh and shiny-matrix.sh now
 works better.

Running chertex.sh on sample-matrix.Rnw kills previous shiny::runApp() instances,
and creates a new and persistent shiny instance using the nohup command.
---
 chertex.sh      | 5 +++--
 shiny-matrix.sh | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/chertex.sh b/chertex.sh
index 272a2bc..56aa16f 100755
--- a/chertex.sh
+++ b/chertex.sh
@@ -129,8 +129,9 @@ if [ $# -eq 1 ]; then
       # Old attempts, never worked 
       #PORT=$(</home/taha/chepec/chetex/sample-matrix/shinyapp/shiny.port)
       #bash -c "R -e 'shiny::runApp(\"/home/taha/chepec/chetex/sample-matrix/shinyapp\", port = $PORT)'"
-
-      bash -c "shiny-matrix.sh" & 
+      # Before starting new shiny process, kill any previous instances
+      pkill -f "shiny::runApp"
+      bash -c "/home/taha/chepec/chetex/common/bash/shiny-matrix.sh" & 
       Rscript -e "library(knitr); knit(input='$jobname.Rmd', output='$jobname.md')"
       Rscript -e "library(markdown); markdownToHTML('$jobname.md', '$jobname.html', stylesheet = 'custom.css')"
    fi
diff --git a/shiny-matrix.sh b/shiny-matrix.sh
index cfe68c8..8444926 100755
--- a/shiny-matrix.sh
+++ b/shiny-matrix.sh
@@ -21,7 +21,7 @@ echo $PORT > /home/taha/chepec/chetex/sample-matrix/shinyapp/shiny.port
 
 # Run R Shiny app at localhost port
 # Note: this process does not return control to bash...
-R -e "shiny::runApp('~/chepec/chetex/sample-matrix/shinyapp', port = $PORT)"
+nohup R -e "shiny::runApp('~/chepec/chetex/sample-matrix/shinyapp', port = $PORT)"