#!/usr/bin/env ruby

require 'rbbt-util'
require 'rbbt/util/simpleopt'

$0 = "rbbt #{$previous_commands*""} #{ File.basename(__FILE__) }" if $previous_commands

options = SOPT.setup <<EOF

Produce a heatmap

$ rbbt stat heatmap [options] <filename.tsv> [file.png]

-h--help Print this help
-w--width* Image Width
-h--height* Image Height
-s--size* Image Size (Height and Width)

EOF
if options[:help]
  if defined? rbbt_usage
    rbbt_usage 
  else
    puts SOPT.usage
  end
  exit 0
end

file, png = ARGV

raise "No file" if file.nil?

width, height, size, logs, positive = options.values_at :width, :height, :size, :logs, :positive

size = 800 if size.nil?
width = size if width.nil?
height = size if height.nil?
logs = false if logs.nil?
positive = false if positive.nil?


require 'rbbt/util/R'
if png
    R.run <<-EOF
data = rbbt.tsv2matrix(rbbt.tsv('#{file}'))
rbbt.png_plot('#{png}', 'boxplot(data)', width=#{ width }, height=#{ height })
    EOF
else
    TmpFile.with_file(nil, :extension => 'png') do |png|
        R.run <<-EOF
data = rbbt.tsv2matrix(rbbt.tsv('#{file}'))
rbbt.png_plot('#{png}', 'boxplot(data)', width=#{ width }, height=#{ height })
        EOF
        `eog #{png}`
    end
end