|
|
|
|
@ -73,7 +73,7 @@ if [ $# -eq 1 ]; then
|
|
|
|
|
# kill Shiny
|
|
|
|
|
pkill -f "shiny::runApp"
|
|
|
|
|
# start Shiny
|
|
|
|
|
bash -c "/home/taha/chepec/chetex/common/bash/shiny-matrix.sh" &
|
|
|
|
|
bash -c "/media/bay/taha/chepec/chetex/common/bash/shiny-matrix.sh" &
|
|
|
|
|
# terminate this script
|
|
|
|
|
echo "<cheRTeX> Terminating..."
|
|
|
|
|
simpledelay.sh 2
|
|
|
|
|
@ -210,44 +210,44 @@ else
|
|
|
|
|
# create a unique tmp-dir name
|
|
|
|
|
tmpdirname="${timestamp}-${currdirname}"
|
|
|
|
|
# make a directory in chepec/tmp with the name of the current dir
|
|
|
|
|
mkdir /home/taha/chepec/tmp/$tmpdirname
|
|
|
|
|
mkdir /media/bay/taha/chepec/tmp/$tmpdirname
|
|
|
|
|
# Copy the contents of the current directory to the tmp/$currdirname directory
|
|
|
|
|
cp * -R /home/taha/chepec/tmp/$tmpdirname
|
|
|
|
|
cp * -R /media/bay/taha/chepec/tmp/$tmpdirname
|
|
|
|
|
# Empty the current directory of all contents
|
|
|
|
|
rm * -R # note: hidden files and subdir unaffected
|
|
|
|
|
# Return the stuff we want to keep after wipe-dir
|
|
|
|
|
# (we are of course assuming that the following 4 file(type)s always exist)
|
|
|
|
|
# (if in fact they do not exist, use conditional statements instead (see below)
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/*.Rnw .
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/vc .
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/vc.tex .
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/vc-git.awk .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/*.Rnw .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/vc .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/vc.tex .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/vc-git.awk .
|
|
|
|
|
## Return stuff that may not always exist (check first...)
|
|
|
|
|
## The use of conditionals is mainly to avoid annoying "file does not exist" messages...
|
|
|
|
|
# Return *.Rproj file (removal is unnecessary and makes RStudio less useful)
|
|
|
|
|
Rprojfiles=`ls -1 /home/taha/chepec/tmp/$tmpdirname/*.Rproj 2>/dev/null | wc -l`
|
|
|
|
|
Rprojfiles=`ls -1 /media/bay/taha/chepec/tmp/$tmpdirname/*.Rproj 2>/dev/null | wc -l`
|
|
|
|
|
if [ $Rprojfiles != 0 ]; then
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/*.Rproj .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/*.Rproj .
|
|
|
|
|
fi
|
|
|
|
|
# Return *.rda files (considering peak-data files, which "cost" a lot to create)
|
|
|
|
|
rdafiles=`ls -1 /home/taha/chepec/tmp/$tmpdirname/*.rda 2>/dev/null | wc -l`
|
|
|
|
|
rdafiles=`ls -1 /media/bay/taha/chepec/tmp/$tmpdirname/*.rda 2>/dev/null | wc -l`
|
|
|
|
|
if [ $rdafiles != 0 ]; then
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/*.rda .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/*.rda .
|
|
|
|
|
fi
|
|
|
|
|
# Return *.Rmd files (R markdown source files)
|
|
|
|
|
Rmdfiles=`ls -1 /home/taha/chepec/tmp/$tmpdirname/*.Rmd 2>/dev/null | wc -l`
|
|
|
|
|
Rmdfiles=`ls -1 /media/bay/taha/chepec/tmp/$tmpdirname/*.Rmd 2>/dev/null | wc -l`
|
|
|
|
|
if [ $Rmdfiles != 0 ]; then
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/*.Rmd .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/*.Rmd .
|
|
|
|
|
fi
|
|
|
|
|
# Return *.css files (css files) [for sample-matrix]
|
|
|
|
|
cssfiles=`ls -1 /home/taha/chepec/tmp/$tmpdirname/*.css 2>/dev/null | wc -l`
|
|
|
|
|
cssfiles=`ls -1 /media/bay/taha/chepec/tmp/$tmpdirname/*.css 2>/dev/null | wc -l`
|
|
|
|
|
if [ $cssfiles != 0 ]; then
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/*.css .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/*.css .
|
|
|
|
|
fi
|
|
|
|
|
# Return .knitme file [empty file used to indicate knitr jobs]
|
|
|
|
|
knitmefile=`ls -1 /home/taha/chepec/tmp/$tmpdirname/.knitme 2>/dev/null | wc -l`
|
|
|
|
|
knitmefile=`ls -1 /media/bay/taha/chepec/tmp/$tmpdirname/.knitme 2>/dev/null | wc -l`
|
|
|
|
|
if [ $knitmefile != 0 ]; then
|
|
|
|
|
cp /home/taha/chepec/tmp/$tmpdirname/.knitme .
|
|
|
|
|
cp /media/bay/taha/chepec/tmp/$tmpdirname/.knitme .
|
|
|
|
|
fi
|
|
|
|
|
fi
|
|
|
|
|
|
|
|
|
|
|
