annotate r_wrapper.sh @ 5:0544b052af07 draft

Uploaded
author davidvanzessen
date Tue, 10 Dec 2013 07:26:10 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
1 #!/bin/bash
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
2 echo $1
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
3 echo $2
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
4 echo $3
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
5
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
6 inputFile=$1
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
7 outputFile=$2
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
8 outputDir=$3
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
9 dir="$(cd "$(dirname "$0")" && pwd)"
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
10 mkdir $3
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
11 Rscript --verbose $dir/RScript.r $inputFile $outputDir $outputDir 2>&1
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
12 echo "<html>" >> $2
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
13 echo "<img src='VPlot.png'/>" >> $2
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
14 echo "<img src='DPlot.png'/>" >> $2
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
15 echo "<img src='JPlot.png'/>" >> $2
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
16
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
17 samples=`cat $outputDir/samples.txt`
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
18 count=1
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
19 echo "<table border='1'>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
20 for sample in $samples; do
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
21 echo "<tr><td colspan='3' height='100'></td>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
22 echo "<tr><td colspan='3'><h1>$sample</h1></td></tr>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
23 echo "<tr><td><h2>V-D Heatmap:</h2></td><td><h2>V-J Heatmap:</h2></td><td><h2>D-J Heatmap:</h2></td></tr><tr>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
24 mv "$outputDir/HeatmapVD_$sample.png" "$outputDir/VD_$sample.png"
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
25 echo "<td><img src='VD_$sample.png'/></td>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
26 mv "$outputDir/HeatmapVJ_$sample.png" "$outputDir/VJ_$sample.png"
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
27 echo "<td><img src='VJ_$sample.png'/></td>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
28 mv "$outputDir/HeatmapDJ_$sample.png" "$outputDir/DJ_$sample.png"
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
29 echo "<td><img src='DJ_$sample.png'/></td></tr>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
30 count=$((count+1))
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
31 done
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
32 echo "</table>" >> $outputFile
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
33
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
34 echo "</html>" >> $2
0544b052af07 Uploaded
davidvanzessen
parents:
diff changeset
35