rosar 0.0.8

data/README.markdown

@@ -0,0 +1,35 @@
+RosaR
+=====
+
+Ruby/OSA to Gnu-R interface, useful to plot and analyze data from within ruby.
+It relies on AppleScript, so only works on Apple OS X (Snow Leopard tested).
+
+If you have troubles with ruby-osa, install my rubyosa gem:
+
+	sudo gem install pbosetti-rubyosa
+
+Example
+=======
+
+	require '../lib/rosar'
+ 
+	r = ROSAR.instance
+ 
+	df = {
+	  :x => (0..4).to_a,
+	  :y => [7,2,5.5,8,9,10]
+	}
+	cols = %w(red green blue darkred darkgreen darkblue)
+	r.transfer :p=>(0...100).to_a
+	r.plot :x=>:p, :y=>"p^2", :typ=>"'l'"
+	2.upto 7 do |i|
+	  r.lines :x=>:p, :y=>"#{i}*p^2", :col=>"'#{cols[i-2]}'"
+	end
+	sleep(2)
+	r.data_frame :df, df
+	r.attach :df
+	r.plot :x=>:x, :y=>"y/2", :typ=>"'b'", :col=>"'darkred'", :xlab=>"'Time (s)'"
+	r.grid
+	r.abline :h=>[2.5,3.5]
+	r.abline "a=0, b=1"
+	r.detach :df

data/lib/rosar.rb

@@ -0,0 +1,144 @@
+#!/usr/bin/env ruby
+#
+# Created by Paolo Bosetti on 2008-05-22.
+# Copyright (c) 2008 University of Trento. All rights 
+# reserved.
+require 'singleton'
+require 'rubygems'
+require 'rbosa'
+
+
+=begin rdoc
+  Adds a to_r method to standara Arrays, which returns a String representation
+  of the equivalent R array object.
+=end
+class Array
+  def to_r
+    "c(#{self * ','})"
+  end
+end
+
+class Hash
+  def to_r
+    str = []
+    self.each_pair do |k,v|
+      case v
+      when String
+        str << "#{k}=#{v}"
+      when Array
+        str << "#{k}=#{v.to_r}"
+      else
+        str << "#{k}=#{v}"
+      end
+    end
+    str * ", "
+  end
+end
+
+=begin rdoc
+  Usage example:
+    r=ROSAR.instance
+    a=[1,2,3]
+    b=[4,5,6]
+    r.transfer :a=>a, :b=>b
+    r.plot :x=>:a, :y=>:b, :typ=>"'l'"
+    r.grid  
+
+  Example based on dataframes:
+    df = {
+      :x => [1,2,3,4],
+      :y => [7,2,5.5,8]
+    }
+    r.data_frame :df, df
+    r.attach :df
+    r.plot :x=>:x, :y=>"y/2", :typ=>"'b'", :xlab=>"'Time (s)'"
+    r.grid
+    r.abline :h=>[2.5,3.5]
+    r.detach :df
+=end
+class ROSAR
+  include Singleton
+  FIFO = "rosar.fifo"
+  attr_reader :r, :console
+  
+  def initialize(r="R")
+    @r = OSA.app r
+    self.sync_dir
+    self.activate
+    @console = @r.windows.select {|w| w.name =="R Console"}[0]
+    unless FileTest.exists?(FIFO) || FileTest.pipe?(FIFO)
+      `mkfifo #{FIFO}` # something nicer has to be done...
+    end
+  end
+  
+  def minimize
+    @console.miniaturized = true
+  end
+  
+  def maximize
+    @console.miniaturized = false
+  end
+  
+=begin rdoc
+  Sets the R's working directory to the current dir of the calling script.
+=end
+  def sync_dir(dir=Dir.getwd)
+    @r.cmd "setwd('#{dir}')"
+  end
+
+=begin rdoc
+  Brings R windows to foreground.
+=end    
+  def activate
+    @r.activate
+  end
+
+=begin rdoc
+  Transfers an Hash of Arrays to the R workspace. R object names are the 
+  Hash symbols.
+=end
+  def transfer(vars)
+    raise "Expecting a Hash" unless vars.class == Hash
+    vars.each_pair do |k,v|
+      @r.cmd "#{k.to_s}<-#{v.to_r}" if v.class == Array
+    end
+  end
+  
+=begin rdoc
+  Transfers the Hash of Arrays +df+ to a dataframe named +name+. Uses a FIFO
+  to move values around.
+=end
+  def data_frame(name, df)
+    r_thread = Thread.new do
+      @r.cmd "#{name}<-read.table('#{FIFO}', h=T)"
+    end
+
+    File.open("#{FIFO}", "w") do |f|
+      f.puts df.keys*"\t"
+      df[df.keys[0]].size.times do |i|
+        df.each_key do |k|
+          f.print "#{df[k][i] || 'NA'}\t"
+        end
+        f.puts
+      end
+    end
+    r_thread.join
+    File.delete FIFO
+  end
+  
+=begin rdoc
+  Redirects +method+ to the underlaying OSA object.
+=end
+  def method_missing(method, *args)
+    case args[0]
+    when Hash
+      @r.cmd("#{method}(#{args[0].to_r})")
+    when Symbol
+      @r.cmd("#{method}(#{args[0]})")
+    when String
+      @r.cmd("#{method}(#{args[0]})")
+    when nil
+      @r.cmd("#{method}()")
+    end
+  end
+end

data/test/rtest.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+#
+# Created by Paolo Bosetti on 2008-05-27.
+# Copyright (c) 2008 University of Trento. All rights 
+# reserved.
+
+require '../lib/rosar'
+
+r = ROSAR.instance
+df = {
+  :x => (0..4).to_a,
+  :y => [7,2,5.5,8,9,10]
+}
+cols = %w(red green blue darkred darkgreen darkblue)
+r.transfer :p=>(0...100).to_a
+r.plot :x=>:p, :y=>"p^2", :typ=>"'l'"
+2.upto 7 do |i|
+  r.lines :x=>:p, :y=>"#{i}*p^2", :col=>"'#{cols[i-2]}'"
+end
+sleep(2)
+r.data_frame :df, df
+r.attach :df
+r.plot :x=>:x, :y=>"y/2", :typ=>"'b'", :col=>"'darkred'", :xlab=>"'Time (s)'"
+r.grid
+r.abline :h=>[2.5,3.5]
+r.abline "a=0, b=1"
+r.detach :df

metadata

@@ -0,0 +1,67 @@
+--- !ruby/object:Gem::Specification 
+name: rosar
+version: !ruby/object:Gem::Version 
+  version: 0.0.8
+platform: ruby
+authors: 
+- Paolo Bosetti
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-09-15 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: pbosetti-rubyosa
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.4.0
+    version: 
+description: Ruby/GNU-R interface that uses OSA under OS X.
+email: paolo.bosetti@me.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- README.markdown
+- lib/rosar.rb
+- test/rtest.rb
+has_rdoc: true
+homepage: http://github.com/pbosetti/flotr
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --inline-source
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: rosar
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: Ruby/GNU-R interface that uses OSA under OS X.
+test_files: []
+