#!/bin/bash

rUser="rstudio"
remoteStartingDir="~$rUser/git"

echo "remote is $remoteStartingDir"


if [ -z "$1" ]; then
  sessionName="Session"
else 
  sessionName="$1"
fi

sessionName=""$sessionName"_$(date +"%a-%b-%d_%I%M-%p")"

sessionName="R_$sessionName"

## ssh login, then exeecute screen with new session
echo
echo
echo "======================================================================"
echo "Logging in to RBox and starting session '$sessionName'"
echo "======================================================================"
sleep 0.6

su_Rcmd="sudo su -c \\\"cd $remoteStartingDir; R\\\" -s /bin/bash rstudio"
screenCmd1="screen -d -m -S $sessionName \"$su_Rcmd\""
screenCmd2="screen -r -t $sessionName"

msg_sessEnd='R Session is over and SSH will now close'
fullRemoreCmd="$screenCmd1; $screenCmd2; echo $msg_sessEnd; sleep 2"

# This works
screen -dm -S test3 -t -c "R"
screen -r test3

# This works
screen -dm -S test3 -t -c "sudo su -c \"cd ~rstudio/git; R\" -s /bin/bash rstudio"
screen -r test3



# ---- TORUBLE SHOOT ---- # 
echo
echo "su_Rcmd is:   $su_Rcmd"
echo
echo
echo "screenCmd1 is:   $screenCmd1"
echo
echo
echo "screenCmd2 is:   $screenCmd2"
echo
echo
echo "fullRemoreCmd quoted is :"
echo "$fullRemoreCmd"
echo
echo
echo "fullRemoreCmd unquoted is :"
echo $fullRemoreCmd

exit 0

wait
sleep 5

ssh -t ubuntu@107.20.192.2 "$fullRemoreCmd"

echo
echo "======================================================================"
echo 'RBox sessions has ended. You are back where you were when you started.'
echo "======================================================================"

exit 0