Mercurial > repos > davidvanzessen > plotting_merged
comparison r_wrapper.sh @ 31:d26e8c208b5f draft
Uploaded
author | davidvanzessen |
---|---|
date | Fri, 08 Nov 2013 05:29:20 -0500 |
parents | fb03be3fa862 |
children | 46c5d9d396a5 |
comparison
equal
deleted
inserted
replaced
30:bdf048a0b414 | 31:d26e8c208b5f |
---|---|
1 #!/bin/bash | 1 #!/bin/bash |
2 echo $1 | |
3 echo $2 | |
4 echo $3 | |
5 | |
6 inputFile=$1 | |
7 outputFile=$2 | |
8 outputDir=$3 | |
2 dir="$(cd "$(dirname "$0")" && pwd)" | 9 dir="$(cd "$(dirname "$0")" && pwd)" |
3 Rscript --verbose $dir/RScript.r $1 "$2.png" 2>&1 | 10 mkdir $3 |
4 mv -f "$2.png" $2 | 11 Rscript --verbose $dir/RScript.r $inputFile $outputDir $outputDir 2>&1 |
12 echo "<html>" >> $2 | |
13 echo "<img src='VPlot.png'/>" >> $2 | |
14 echo "<img src='DPlot.png'/>" >> $2 | |
15 echo "<img src='JPlot.png'/>" >> $2 | |
5 | 16 |
17 samples=`cat $outputDir/samples.txt` | |
18 count=1 | |
19 echo "<table border='1'>" >> $outputFile | |
20 for sample in $samples; do | |
21 echo "<tr><td colspan='3' height='100'></td>" >> $outputFile | |
22 echo "<tr><td colspan='3'><h1>$sample</h1></td></tr>" >> $outputFile | |
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 | |
24 mv "$outputDir/HeatmapVD_$sample.png" "$outputDir/VD_$sample.png" | |
25 echo "<td><img src='VD_$sample.png'/></td>" >> $outputFile | |
26 mv "$outputDir/HeatmapVJ_$sample.png" "$outputDir/VJ_$sample.png" | |
27 echo "<td><img src='VJ_$sample.png'/></td>" >> $outputFile | |
28 mv "$outputDir/HeatmapDJ_$sample.png" "$outputDir/DJ_$sample.png" | |
29 echo "<td><img src='DJ_$sample.png'/></td></tr>" >> $outputFile | |
30 count=$((count+1)) | |
31 done | |
32 echo "</table>" >> $outputFile | |
33 | |
34 echo "</html>" >> $2 | |
35 |