From a6daa3acedd2bf56414eee3902432c8b7ce593c5 Mon Sep 17 00:00:00 2001
From: Taha Ahmed <taha@ASKS2>
Date: Sun, 12 Jan 2014 09:16:32 +0100
Subject: [PATCH] Added shiny-matrix.sh, and now chertex.sh updates the Shiny
 matrix.

---
 chertex.sh          |  8 +++++++-
 chrome-with-tabs.sh |  6 +++++-
 shiny-matrix.sh     | 27 +++++++++++++++++++++++++++
 3 files changed, 39 insertions(+), 2 deletions(-)
 create mode 100755 shiny-matrix.sh

diff --git a/chertex.sh b/chertex.sh
index 34d6a13..272a2bc 100755
--- a/chertex.sh
+++ b/chertex.sh
@@ -123,8 +123,14 @@ if [ $# -eq 1 ]; then
    # If $jobname is sample-matrix, run knitr and markdown
    if [[ $jobname == "sample-matrix" ]]; then
       echo "<cheRTeX> -----------------------------------------------------------"
-      echo "<cheRTeX> sample-matrix detected: running knit() and markdownToHTML()"
+      echo "<cheRTeX> sample-matrix: update SHINY, run knit() + markdownToHTML()"
       echo "<cheRTeX> -----------------------------------------------------------"
+      
+      # 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" & 
       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/chrome-with-tabs.sh b/chrome-with-tabs.sh
index c0c5a0e..c23dee3 100755
--- a/chrome-with-tabs.sh
+++ b/chrome-with-tabs.sh
@@ -6,7 +6,11 @@
 a="https://mail.google.com"
 b="https://rememberthemilk.com"
 c="https://chepec.timetask.com"
+# open shiny sample-matrix
+# find current port number by reading shiny.port file
+PORT=$(</home/taha/chepec/chetex/sample-matrix/shinyapp/shiny.port)
+d="localhost:$PORT"
 
-google-chrome $a $b $c
+google-chrome $a $b $c $d
 
 exit 1
diff --git a/shiny-matrix.sh b/shiny-matrix.sh
new file mode 100755
index 0000000..cfe68c8
--- /dev/null
+++ b/shiny-matrix.sh
@@ -0,0 +1,27 @@
+#!/bin/bash
+## Start R Shiny app "sample-matrix"
+## Written Dec 22, 2013
+## Taha Ahmed
+
+
+## bash /home/taha/chepec/chetex/common/bash/shiny-matrix.sh
+
+
+# Random port number between 2000 and 10000
+PORT=$(shuf -i 2000-10000 -n 1)
+
+# Write the current Shiny matrix port number to file in 
+# ~/chepec/chetex/sample-matrix/shinyapp/shiny.port
+echo $PORT > /home/taha/chepec/chetex/sample-matrix/shinyapp/shiny.port
+
+
+# Save PID of this bash job
+#echo $$ > /home/taha/chepec/chetex/sample-matrix/shinyapp/shiny.pid
+# do iy inside Shiny itself with "reactive values" instead
+
+# 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)"
+
+
+