annotate r_wrapper.sh @ 8:6170fc740bf0 draft default tip

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