annotate r_wrapper.sh @ 1:4f50fd2821a6 draft

Uploaded
author davidvanzessen
date Thu, 08 May 2014 04:23:45 -0400
parents 25cd500a0852
children afddfd016ba6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
1 #!/bin/bash
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
2 input=$1
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
3 output=$2
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
4 outDir=$3
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
5 mkdir $outDir
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
6 EOL=$4
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
7 mismatches=$5
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
8 partial=$6
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
9 name=$(basename "$7")
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
10 ext="${name##*.}"
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
11 name="${name%.*}"
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
12 prefix=$name"_"
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
13 dir="$(cd "$(dirname "$0")" && pwd)"
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
14
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
15 for ((i=8;i<=$#;i=i+2))
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
16 do
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
17 j=$((i+1))
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
18 echo -e "${!i}\t${!j}" >> $outDir/barcodes.txt
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
19 done
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
20
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
21 cd $outDir
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
22 echo "$3"
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
23 result=`$dir/sff2fastq $input | $dir/fastx_barcode_splitter.pl --bcfile $outDir/barcodes.txt --prefix "$prefix" --suffix ".fastq" --$EOL --mismatches $mismatches --partial $partial`
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
24 echo "$result" | tail -n +2 | sed 's/\t/,/g' > output.txt
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
25 echo "<html><head><title>$name demultiplex</title></head><body><table border='1'><thead><tr><th>ID</th><th>Count</th><th>FASTQ</th><th>FASTA</th></tr></thead><tbody>" >> $output
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
26 ls
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
27 while IFS=, read barcode count location
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
28 do
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
29 if [ "total" == "$barcode" ]
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
30 then
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
31 echo "<tr><td>$barcode</td><td>$count</td><td></td><td></td></tr>" >> $output
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
32 break
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
33 fi
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
34 file=$name"_"$barcode
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
35 cat $file.fastq | perl -e '$i=0;while(< >){if(/^\@/&&$i==0){s/^\@/\>/;print;}elsif($i==1){print;$i=-3}$i++;}' > $file.fasta
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
36 cat $file.fastq
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
37 echo "<tr><td>$barcode</td><td>$count</td><td><a href='$file.fastq'>$file.fastq</a></td><td><a href='$file.fasta'>$file.fasta</a></td></tr>" >> $output
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
38 done < output.txt
25cd500a0852 Uploaded
davidvanzessen
parents:
diff changeset
39 echo "</tbody></body></html>" >> $output