rinruby 1.0.0 → 1.0.1

data/lib/rinruby.rb

@@ -59,7 +59,7 @@
 
 class RinRuby
 
-  VERSION = '1.0.0'
+  VERSION = '1.0.1'
 
   require 'socket'
 
@@ -573,13 +573,7 @@ class RinRuby
   def find_R_on_windows(cygwin)
     path = '?'
     for root in [ 'HKEY_LOCAL_MACHINE', 'HKEY_CURRENT_USER' ]
-      version = '?'
-      `reg query "#{root}\\Software\\R-core\\R" /v "Current Version"`.split("\n").each do |line|
-        next if line !~ /^\s+Current Version\s+REG_SZ\s+(\d\.\d\.\d).*/
-        version = $1
-        break
-      end
-      `reg query "#{root}\\Software\\R-core\\R\\#{version}" /v "InstallPath"`.split("\n").each do |line|
+      `reg query "#{root}\\Software\\R-core\\R" /v "InstallPath"`.split("\n").each do |line|
         next if line !~ /^\s+InstallPath\s+REG_SZ\s+(.*)/
         path = $1
         while path.chomp!

data/lib/rinruby/animation.rb

@@ -0,0 +1,74 @@
+require 'rinruby'
+
+class Animation < RinRuby
+
+  Graphics_Drivers = ['pdf','swf']
+
+  def loop(n)
+    (1..n).each do |i|
+      print "#{100*i/n}% "
+      eval yield(i)
+    end
+    puts
+  end
+
+  def graphics(filename=nil)
+    if ! filename
+      eval "dev.off()",false
+      if @graphics_driver == 'swf'
+        system <<-EOF
+          pdf2swf -bl -o #{@filename}.swf #{@filename}.pdf > /dev/null 2>&1
+          swfdump --html #{@filename}.swf > #{@filename}.html
+          rm #{@filename}.pdf
+        EOF
+      end
+    else
+      graphics if pull("length(dev.list())") > 0
+      begin
+        @graphics_driver = filename[(filename.rindex('.')+1)..-1].downcase
+      rescue
+        raise "File extension must be in [ #{Graphics_Drivers.join(', ')} ]"
+      end
+      if ! Graphics_Drivers.include?(@graphics_driver)
+        raise "File extension must be in [ #{Graphics_Drivers.join(', ')} ]"
+      end
+      @filename = filename[0...filename.rindex('.')]
+      if @graphics_driver == 'pdf'
+        eval "pdf(paste('#{@filename}.pdf'))"
+      elsif @graphics_driver == 'swf'
+        eval "pdf(paste('#{@filename}.pdf'))"
+      end
+    end
+  end
+
+  def quit
+    graphics if pull("length(dev.list())") > 0
+  end
+
+end
+
+if $0 == __FILE__
+
+  A = Animation.new
+
+  A.graphics "example1.swf"
+  n = 40
+  A.eval "x <- rnorm(#{n})"
+  A.loop(n) do |i|
+    "plot(x[1:#{i}],xlim=c(1,#{n}),ylim=max(abs(x))*c(-1,1),type='l',ylab='')"
+  end
+
+  A.graphics "example2.pdf"
+  A.eval <<-EOF
+      plot(1,type="n",axes=FALSE,xlab="",ylab="")
+      text(1,1,"Thanks!")
+    EOF
+  A.eval <<-EOF
+      plot(1,type="n",axes=FALSE,xlab="",ylab="")
+      text(1,1,"Thanks a lot!")
+    EOF
+
+  A.quit
+
+end
+

data/lib/rinruby/gif.rb

@@ -0,0 +1,70 @@
+require 'rinruby'
+
+class GIF
+
+  def initialize(r_interpreter,filename)
+    @r = r_interpreter
+    @filename = filename
+    @frame_counter = 0
+  end
+
+  def self.draw(r_interpreter,filename,delay)
+    echo = r_interpreter.echo
+    r_interpreter.echo false
+    animated = self.new(r_interpreter,filename)
+    yield(animated)
+    animated.close(delay)
+    r_interpreter.echo echo
+  end
+
+  def add(statement)
+    @frame_counter += 1
+    filename = name(@frame_counter)
+    @r.eval <<-EOF
+      png(paste('#{filename}.png'))
+      #{statement}
+      dev.off()
+    EOF
+    system "convert #{filename}.png #{filename}.gif"
+    File.delete "#{filename}.png"
+  end
+
+  def loop(n)
+    (1..n).each do |i|
+      puts "#{100*i/n}%"
+      add(yield(i))
+    end
+  end
+
+  def close(delay)
+    system "gifsicle -O2 --delay #{delay} #{@filename}-*.gif > #{@filename}.gif"
+    if @frame_counter > 0
+      (1..@frame_counter).each { |i| File.delete("#{name(i)}.gif") }
+    end
+  end
+
+  private
+
+  def name(index)
+    sprintf("%s-%016x",@filename,index)
+  end
+
+end
+
+if $0 == __FILE__
+
+  n = 40
+  R.eval "x <- rnorm(#{n})"
+
+  GIF.draw(R,'time-series',5) do |a|
+    a.loop(n) do |i|
+      "plot(x[1:#{i}],xlim=c(1,#{n}),ylim=max(abs(x))*c(-1,1),type='l',ylab='')"
+    end
+    a.add <<-EOF
+      plot(1,type="n",axes=FALSE,xlab="",ylab="")
+      text(1,1,"Thanks!")
+    EOF
+  end
+
+end
+

metadata

@@ -1,47 +1,50 @@
---- !ruby/object:Gem::Specification 
-rubygems_version: 0.9.2
-specification_version: 1
-name: rinruby
-version: !ruby/object:Gem::Version 
-  version: 1.0.0
-date: 2008-07-03 00:00:00 -05:00
-summary: Accessing the R interpreter from pure Ruby
-require_paths: 
-- lib
+--- !ruby/object:Gem::Specification
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: !str 0
+  version: 
 email: rinruby@ddahl.org
+cert_chain: []
+summary: Accessing the R interpreter from pure Ruby
+post_install_message: 
+extra_rdoc_files: []
 homepage: http://rinruby.ddahl.org
+signing_key: 
+name: rinruby
+rdoc_options: []
+autorequire: 
 rubyforge_project: rinruby
+executables: []
 description: 
-autorequire: 
+specification_version: 2
 default_executable: 
-bindir: bin
-has_rdoc: true
-required_ruby_version: !ruby/object:Gem::Version::Requirement 
-  requirements: 
-  - - ">"
-    - !ruby/object:Gem::Version 
-      version: 0.0.0
-  version: 
-platform: ruby
-signing_key: 
-cert_chain: 
-post_install_message: 
-authors: 
-- David B. Dahl
 files: 
+- lib/rinruby
 - lib/rinruby.rb
+- lib/rinruby/gif.rb
+- lib/rinruby/animation.rb
 - README.txt
-test_files: []
-
-rdoc_options: []
-
-extra_rdoc_files: []
-
-executables: []
-
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: !str 0
+  version: 
 extensions: []
-
+rubygems_version: 1.2.0
 requirements: 
 - R (http://www.r-project.org), an environment for statistical computing and graphics
+authors: 
+- David B. Dahl
+date: 2008-08-20 05:00:00 +00:00
+platform: ruby
+test_files: []
+version: !ruby/object:Gem::Version
+  version: 1.0.1
+require_paths: 
+- lib
 dependencies: []
-
+bindir: bin
+has_rdoc: true