simpler 0.0.3 → 0.0.4

data/VERSION

@@ -1 +1 @@
-0.0.3
+0.0.4

data/lib/simpler.rb

@@ -55,17 +55,35 @@ class Simpler
     reply
   end
 
+  def error_message(error_string, r_code)
+    error_message = ""
+    error_message << "\n"
+    error_message << "*************************** Error inside R *****************************\n"
+    error_message << error_string
+    error_message << "------------------------- [R code submitted] ---------------------------\n"
+    error_message << r_code
+    error_message << "------------------------------------------------------------------------\n"
+    error_message
+  end
+
+
   # pushes string onto command array (if given), executes all commands, and
   # clears the command array.
   def run!(string=nil)
     @commands.push(string) if string
     reply = nil
+    error = nil
+    cmds_to_run = @commands.map {|v| v + "\n"}.join
     Open3.popen3("Rscript -") do |stdin, stdout, stderr|
-      stdin.puts @commands.map {|v| v + "\n"}.join
+      stdin.puts cmds_to_run
       stdin.close_write
+      error = stderr.read
       reply = stdout.read 
     end
     @commands.clear
+    if error.size > 0
+      raise Simpler::RError, error_message(error, cmds_to_run)
+    end
     Simpler::Reply.new(reply)
   end
 
@@ -88,4 +106,7 @@ class Simpler
 
   alias_method :go!, :run_with!
 
+  class RError < StandardError
+  end
+
 end

data/spec/simpler_spec.rb

@@ -20,6 +20,17 @@ describe "Simpler" do
     reply.chomp.is "[1] 1.25"
   end
 
+  it 'raises a useful Simpler::RError on an R error and shows the submitted R code' do
+    code_matches = { "mean(unnamed_variable)" => %r{Error in mean.*: object .* not found},
+      "plsdf()" => %r{could not find function},
+      "plot(c(1,2), c(2))" => %r{'x' and 'y' lengths differ},
+    }
+    code_matches.each do |code, matches|
+      message = lambda { @r.run!(code) }.should.raise(Simpler::RError).message
+      message.should.match(matches)
+      message.should.include code
+    end
+  end
 end
 
 describe 'making data frames' do

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 0
-  - 3
-  version: 0.0.3
+  - 4
+  version: 0.0.4
 platform: ruby
 authors: 
 - John Prince
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-07-09 00:00:00 -06:00
+date: 2010-07-13 00:00:00 -06:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency