galaaz 0.4.5 → 0.4.6

data/specs/r_dataframe.spec.rb

@@ -38,8 +38,7 @@ describe R::DataFrame do
       expect(df[1, 'V2']).to eq 3
       # When you extract a single row from a data frame you get a one-row data frame.
       # Convert it to a numeric vector with 'as__numeric'
-      expect(df[1, :all].as__numeric).to eq R.c(V1: 1, V2: 3, V3: 5)
-     
+      expect(df[1, :all].as__numeric).to eq R.c(1.0, 3, 5)
     end
 
   end
@@ -84,26 +83,26 @@ describe R::DataFrame do
         # col_name a Ruby string with the column name
         case col_name
         when "mpg"
-          expect(col[1]).to eq 21
+          expect(col[1]).to eq 21.0
           expect(col[9]).to eq 22.8
           expect(col[32]).to eq 21.4
-          expect(col[1] == 21).to eq true
+          expect(col[1] == 21.0).to eq true
           expect(col[9] == 22.8).to eq true
           expect(col[9] == 30).to eq false
           expect(col[32] == 21.4).to eq true
         when "cyl"
-          expect(col[1] == 6).to eq true
-          expect(col[10] == 6).to eq true
-          expect(col[32] == 4).to eq true
-          expect(col[1]).to eq 6
-          expect(col[10]).to eq 6
-          expect(col[32]).to eq 4
+          expect(col[1] == 6.0).to eq true
+          expect(col[10] == 6.0).to eq true
+          expect(col[32] == 4.0).to eq true
+          expect(col[1]).to eq 6.0
+          expect(col[10]).to eq 6.0
+          expect(col[32]).to eq 4.0
         when "disp"
-          expect(col[1]).to eq 160
-          expect(col[32]).to eq 121
-          expect(col[1] == 160).to eq true
-          expect(col[1] == 200).to eq false
-          expect(col[32] == 121).to eq true
+          expect(col[1]).to eq 160.0
+          expect(col[32]).to eq 121.0
+          expect(col[1] == 160.0).to eq true
+          expect(col[1] == 200.0).to eq false
+          expect(col[32] == 121.0).to eq true
         end
         
       end
@@ -118,25 +117,28 @@ describe R::DataFrame do
         # row_name a Ruby string with the column name
         case row_name
         when "Mazda RX4"
-          expect(row[['mpg']]).to eq 21
-          expect(row.mpg). to eq 21
+          expect(row[['mpg']]).to eq 21.0
+          # indexig with only '[ returns a data.frame which is not
+          # equal to 21.0
+          expect(row['mpg']).not_to eq 21.0
+          expect(row.mpg).to eq 21.0
           expect(row.qsec).to eq 16.46
-          expect(row['mpg'] == 21).to eq true
+          expect(row[['mpg']] == 21.0).to eq true
           expect(row.qsec == 16.46).to eq true
         when "Hornet Sportabout"
-          expect(row[['cyl']]).to eq 8
-          expect(row.cyl).to eq 8
+          expect(row[['cyl']]).to eq 8.0
+          expect(row.cyl).to eq 8.0
           expect(row[['wt']]).to eq 3.44
-          expect(row['cyl'] == 8).to eq true
-          expect(row['wt'] == 3.44).to eq true
         when "Merc 240D"
-          expect(row[['hp']]).to eq 62
-          expect(row['hp'] == 62).to eq true
+          expect(row[['hp']]).to eq 62.0
+          expect(row[['hp']] == 62.0).to eq true
+          expect(row[['cyl']] == 4.0).to eq true
+          expect(row[['wt']] == 3.19).to eq true
           expect(row.drat).to eq 3.69
         when "Volvo 142E"
-          expect(row.hp).to eq 109
-          expect(row.am).to eq 1
-          expect(row.carb).to eq 2
+          expect(row.hp).to eq 109.0
+          expect(row.am).to eq 1.0
+          expect(row.carb).to eq 2.0
         end
         
       end

data/specs/r_devices.spec.rb

@@ -0,0 +1,347 @@
+# -*- coding: utf-8 -*-
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+describe R do
+
+  before(:each) do
+    # Read the R ToothGrowth variable and assign it to the
+    # Ruby instance variable @tooth_growth that will be 
+    # available to all Ruby chunks in this document.
+    @tooth_growth = ~:ToothGrowth
+    
+    # convert the dose to a factor
+    @tooth_growth.dose = @tooth_growth.dose.as__factor
+    
+  end
+  
+  #----------------------------------------------------------------------------------------
+  context "Using png device" do
+    
+    it "should generate png file without arguments" do
+
+      out_file = "specs/figures/no_args.png"
+      dir = File.dirname(out_file)
+
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      R.png(out_file)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate png file with width and height" do
+
+      out_file = "specs/figures/width_height.png"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # default 'units' is 'px'
+      R.png(out_file, width: 520, height: 520)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate png file with width, height and units 'in'" do
+
+      out_file = "specs/figures/width_height_units1.png"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # set units to inches, needs to specify resolution also
+      # using 72 dpi
+      R.png(out_file, width: 7, height: 7, units: "in", res: 72)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate png file with width, height and units 'cm'" do
+
+      out_file = "specs/figures/width_height_units2.png"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # set units to cm, needs to specify resolution also,
+      # using 72 dpi
+      R.png(out_file, width: 7, height: 7, units: "cm", res: 72)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate png file with a background" do
+
+      out_file = "specs/figures/bg.png"
+      dir = File.dirname(out_file)
+
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      R.png(out_file, bg: "blue")
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+  end
+
+  #----------------------------------------------------------------------------------------
+  context "Using svg device" do
+    
+    it "should generate svg file without arguments" do
+
+      out_file = "specs/figures/no_args.svg"
+      dir = File.dirname(out_file)
+
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      R.svg(out_file)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+=begin    
+    # does not work... should not pass width and height to svg file
+    it "should generate svg file with width and height" do
+
+      out_file = "specs/figures/width_height.svg"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # default 'units' is 'px'
+      R.svg(out_file, width: 520, height: 520)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    
+    it "should generate svg file with width, height and units 'in'" do
+
+      out_file = "specs/figures/width_height_units1.svg"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # set units to inches, needs to specify resolution also
+      # using 72 dpi
+      R.svg(out_file, width: 7, height: 7, units: "in", res: 72)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate svg file with width, height and units 'cm'" do
+
+      out_file = "specs/figures/width_height_units2.svg"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # set units to cm, needs to specify resolution also,
+      # using 72 dpi
+      R.svg(out_file, width: 7, height: 7, units: "cm", res: 72)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+=end
+    
+  #----------------------------------------------------------------------------------------
+    it "should generate svg file with a background" do
+
+      out_file = "specs/figures/bg.svg"
+      dir = File.dirname(out_file)
+
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      R.svg(out_file, bg: "blue")
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+  end
+  
+  #----------------------------------------------------------------------------------------
+  context "Using jpg device" do
+    
+    it "should generate jpeg file without arguments" do
+
+      out_file = "specs/figures/no_args.jpeg"
+      dir = File.dirname(out_file)
+
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      R.jpeg(out_file)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate jpeg file with width and height" do
+
+      out_file = "specs/figures/width_height.jpeg"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # default 'units' is 'px'
+      R.jpeg(out_file, width: 520, height: 520)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate jpeg file with width, height and units 'in'" do
+
+      out_file = "specs/figures/width_height_units1.jpeg"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # set units to inches, needs to specify resolution also
+      # using 72 dpi
+      R.jpeg(out_file, width: 7, height: 7, units: "in", res: 72)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate jpeg file with width, height and units 'cm'" do
+
+      out_file = "specs/figures/width_height_units2.jpeg"
+      dir = File.dirname(out_file)
+      
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # set units to cm, needs to specify resolution also,
+      # using 72 dpi
+      R.jpeg(out_file, width: 7, height: 7, units: "cm", res: 72)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+    it "should generate jpeg file with a background" do
+
+      out_file = "specs/figures/bg.jpeg"
+      dir = File.dirname(out_file)
+
+      unless File.directory?(dir)
+        FileUtils.mkdir_p(dir)
+      end
+
+      # R.jpeg(out_file, bg: "blue")
+      R.jpeg(out_file)
+      
+      e = @tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+      print e + R.geom_boxplot
+
+      R.dev__off
+
+    end
+
+  end
+
+
+end

data/specs/r_eval.spec.rb

@@ -110,7 +110,13 @@ describe R do
       # one element of the vector is a 'float'
       double = R.c(1.0, 2, 3)
       expect((~:x).identical double).to eq true
-      expect(R.hyp(3, 4)).to eq 5
+      expect(R.hyp(3, 4).all__equal(5)).to eq true
+      # @TODO: this should work but raises the following error:
+      # TypeError:
+      #  Truffle doesn't have a case for the org.truffleruby.interop.InteropNodesFactory$HasSizeNodeFactory$HasSizeNodeGen node with values of type  java.lang.Double=5.0
+      # I think this is a bug with TruffleRuby that hopefully will be fixed in RC12
+      # If not fixed in RC12 open issue
+      # expect(R.hyp(3, 4)).to eq 5
     end
 
     it "should box R functions in R::Closure Ruby class" do
@@ -136,8 +142,9 @@ describe R do
       # retrieve x and hyp from R and attribute it to local Ruby variables
       x = ~:x
 
-      expect(x[1] == 1).to eq true
-      expect(x[2] == 1).to eq false
+      expect(x[1].all__equal(1)).to eq true
+      expect(x[2].identical(1)).to eq false
+      expect((x >> 0) == 1).to eq true
     end
     
     it "should have NA" do