pbosetti-rosar 0.0.3 → 0.0.4

data/README.markdown

@@ -0,0 +1,4 @@
+RosaR
+=====
+
+Ruby/OSA R interface

data/lib/rosar.rb

@@ -0,0 +1,135 @@
+#!/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]
+    @console.miniaturized = true
+    unless FileTest.exists?(FIFO) || FileTest.pipe?(FIFO)
+      `mkfifo #{FIFO}` # something nicer has to be done...
+    end
+  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)
+    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
+  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,28 @@
+#!/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

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: pbosetti-rosar
 version: !ruby/object:Gem::Version 
-  version: 0.0.3
+  version: 0.0.4
 platform: ruby
 authors: 
 - Paolo Bosetti
@@ -9,19 +9,18 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-03-19 00:00:00 -07:00
+date: 2009-08-18 00:00:00 -07:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: 
-  - rbosa
+  name: sstephenson-rubyosa
   type: :runtime
   version_requirement: 
   version_requirements: !ruby/object:Gem::Requirement 
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        version: "0"
+        version: 0.4.0
     version: 
 description: Ruby/GNU-R interface that uses OSA under OS X.
 email: paolo.bosetti@me.com
@@ -29,17 +28,19 @@ executables: []
 
 extensions: []
 
-extra_rdoc_files: 
-- README
+extra_rdoc_files: []
+
 files: 
-- rosar.gemspec
-- README
+- README.markdown
+- lib/rosar.rb
+- test/rtest.rb
 has_rdoc: true
-homepage: 
+homepage: http://github.com/pbosetti/flotr
+licenses: 
 post_install_message: 
 rdoc_options: 
-- --main
-- README
+- --inline-source
+- --charset=UTF-8
 require_paths: 
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement 
@@ -56,10 +57,10 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   version: 
 requirements: []
 
-rubyforge_project: 
-rubygems_version: 1.2.0
+rubyforge_project: rosar
+rubygems_version: 1.3.5
 signing_key: 
 specification_version: 2
-summary: Ruby to R via OSA.
+summary: Ruby/GNU-R interface that uses OSA under OS X.
 test_files: []
 

data/rosar.gemspec

@@ -1,22 +0,0 @@
-spec = Gem::Specification.new do |s|
-  s.name = "rosar"
-  s.version = "0.0.3"
-  s.date = "2009-03-19"
-  s.summary = "Ruby to R via OSA."
-  s.email = "paolo.bosetti@me.com"
-  #s.homepage = "http://www.example.com"
-  s.description = %{Ruby/GNU-R interface that uses OSA under OS X.}
-  s.authors = ['Paolo Bosetti']
-  # the lib path is added to the LOAD_PATH
-  s.require_path = "lib"
-  # include Rakefile, gemspec, README and all the source files
-  s.files = ["rosar.gemspec", "README"] +
-    Dir.glob("lib/**/*")
-  # include tests and specs
-  s.test_files = Dir.glob("{test,spect}/**/*")
-  # include README while generating rdoc
-  s.rdoc_options = ["--main", "README"]
-  s.has_rdoc = true
-  s.extra_rdoc_files = ["README"]
-  s.add_dependency ['rbosa']
-end