run an R script in the current directory, capture start/end time, set perms for www view

rrunner.sh

#!/bin/bash

# run R script in the current directory, capture start/end time, set perms for www view
# loop for a number of times, default 20, and then end.

if [ "$1" == "" ]; then
	echo "	[ FAILED ] need an R script name"
	exit 1
else
	echo "	[ OK ] R script name given"
fi

clear

if [ ! -f "$1" ]; then
	echo "	[ FAILED ] R script $1 not found"
	exit 1
else
	echo "	[ OK ] R script $1 exists"
	chown www-data:www-data $1
	SCRIPT=$1
fi

echo "	[ OK ] all tests passed, ok to run script"

fromdos $SCRIPT

echo "	[ OK ] fromdos run on R script $SCRIPT, ready for processing"

i="1"

while [ $i -lt 20 ]
do

	START_TIME=`date '+%m %h %T'`

	echo "	[ OK ] R script $SCRIPT ($i) started $START_TIME"

	echo "R script $SCRIPT started at $START_TIME" > "$SCRIPT"_running_$i

	chown www-data:www-data "$SCRIPT"_running_$i

	echo "	[ OK ] issuing the command: R CMD BATCH $SCRIPT"

	echo "	[ OK ] R script $SCRIPT ($i) running"

	R CMD BATCH $SCRIPT

	echo "	[ OK ] R script $SCRIPT ($i) finished"

	END_TIME=`date '+%m %h %T'`

	echo "	[ OK ] R script $SCRIPT ($i) ended at $END_TIME"

	echo "R script $SCRIPT ended at $END_TIME" >> "$SCRIPT"_running_$i

	mv "$SCRIPT"_running_$i "$SCRIPT"_completed_$i

	chown www-data:www-data "$SCRIPT"out

i=$[$i+1]
done

exit 0