galaaz 0.4.0

data/lib/rsupport_scope.rb

@@ -0,0 +1,77 @@
+# -*- 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.
+##########################################################################################
+
+module R
+
+  module Scope
+
+    def self.with(symbol, *args)
+      attrs = []
+      dataframe = args[0]
+      
+      args.each_with_index do |arg, index|
+        arg.names.each { |n| attrs << n.to_sym }
+      end
+
+      Class.new do
+        # create accessor functions for every variable name
+        attrs.each do |name|
+          define_method (name) do
+            dataframe.method_missing(name)
+          end
+        end
+
+        #----------------------------------------------------------------------------------------
+        #
+        #----------------------------------------------------------------------------------------
+        
+        define_method (:subset) do |*missing_args|
+          R::Support.exec_function(R.subset_method, dataframe, *missing_args)
+        end
+        
+        #----------------------------------------------------------------------------------------
+        #
+        #----------------------------------------------------------------------------------------
+
+        define_method (:method_missing) do |missing_symbol, *missing_args|
+          R::Support.process_missing(missing_symbol, false, dataframe, *missing_args)
+        end
+        
+      end
+      
+    end
+    
+  end
+
+  module Support
+
+    def self.new_scope(symbol, *args, &block)
+      executionScope = Scope.with(symbol, *args)
+      scope = executionScope.new
+      scope.instance_eval(&block)
+      # scope
+    end
+    
+  end
+
+end

data/lib/rsymbol.rb

@@ -0,0 +1,57 @@
+# -*- 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.
+##########################################################################################
+
+module R
+
+  #--------------------------------------------------------------------------------------
+  #
+  #--------------------------------------------------------------------------------------
+
+  class RSymbol < R::Object
+    include BinaryOperators
+    include FormulaBinOp
+    
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+    
+    def =~(other_object)
+      exec_oper("`~`", other_object, true)
+    end
+
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+    
+    def ^(other_object)
+      exec_oper("`:`", other_object)
+    end
+    
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+  end
+  
+
+end

data/lib/ruby_callback.rb

@@ -0,0 +1,83 @@
+# -*- 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.
+##########################################################################################
+
+module R
+
+  class RubyCallback
+
+    # The Ruby Proc, Method (or Object?) to be called back
+    attr_reader :object
+    # The R function that will call back on the object
+    attr_reader :r_function
+
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def self.build(object)
+      RubyCallback.new(object).r_function
+    end
+    
+    #--------------------------------------------------------------------------------------
+    # Initializes a callback object and constructs the R function that calls back the
+    # object.  RubyCallback class will act as proxy to the actual Ruby Object since it
+    # needs to deal with R parameters and Return values boxing and unboxing when needed
+    # @param object [Object] Ruby Object
+    #--------------------------------------------------------------------------------------
+
+    def initialize(object)
+      @object = object
+      
+      # ruby_callback_method is a method that returns an R function that returns an R
+      # function that calls back this object callback method (look at callback bellow)
+      @r_function = R::Support.ruby_callback_method.call(method(:callback))
+    end
+    
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def method_missing(symbol, *args)
+      p "in ruby_callback.rb method missing with #{symbol} #{args}"
+    end
+    
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def callback(*args)
+
+      # converts every arg into a R::Object (Ruby object that wraps an R Interop)
+      args.map! { |arg| R::Object.build(arg) }
+      
+      # calls the callback method and convert the result back to an R object
+      # method parse_arg was developed to parse the arguments to an R function
+      # but in a callback the return value needs to be converted.  In this case
+      # the name parse_arg is misleading
+      R::Support.parse_arg(@object.call(*args))
+      
+    end
+    
+  end
+  
+end

data/lib/ruby_extensions.rb

@@ -0,0 +1,74 @@
+# -*- 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.
+##########################################################################################
+
+#==========================================================================================
+#
+#==========================================================================================
+
+class Range
+
+  #----------------------------------------------------------------------------------------
+  # Defines unary minus operation for ranges
+  #----------------------------------------------------------------------------------------
+  
+  def -@
+    NegRange.new(self.begin, self.end)
+  end
+
+end
+
+#==========================================================================================
+# Class NegRange exists to represent a negative range, e.g., -(1...10).  Such a range is
+# used to index vectors and means all elements but the ones in the given range.  Class
+# NegRange is parsed to become "-(1:10)" in R.
+#==========================================================================================
+
+class NegRange < Range
+
+end
+
+#==========================================================================================
+#
+#==========================================================================================
+
+class Symbol
+  include R::BinaryOperators
+  include R::CallBinOp
+
+  #--------------------------------------------------------------------------------------
+  # Unary '+' converts a Ruby Symbol into an R Symbol
+  #--------------------------------------------------------------------------------------
+
+  def +@
+    R::Object.build(R::Support.eval("as.name").call(to_s))
+  end
+
+  #--------------------------------------------------------------------------------------
+  # Unary '~' retrieves the values of the R symbol
+  #--------------------------------------------------------------------------------------
+
+  def ~@
+    R::Object.build(R::Support.eval(to_s))
+  end
+  
+end

data/lib/runary_operators.rb

@@ -0,0 +1,58 @@
+# -*- 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.
+##########################################################################################
+
+module R
+
+  #--------------------------------------------------------------------------------------
+  #
+  #--------------------------------------------------------------------------------------
+
+  module UnaryOperators
+
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def !
+      R::Support.exec_function_name("`!`", @r_interop)
+    end
+    
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def -@
+      R::Support.exec_function_name("`-`", @r_interop)
+    end
+    
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def +@
+      R::Support.exec_function_name("`+`", @r_interop)
+    end
+
+  end
+
+end

data/lib/rvector.rb

@@ -0,0 +1,117 @@
+# -*- 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.
+##########################################################################################
+
+module R
+
+  class Vector < Object
+    include IndexedObject
+    include BinaryOperators
+    include ExecBinOp
+    include UnaryOperators
+    include Enumerable
+    
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def initialize(r_interop)
+      super(r_interop)
+    end
+    
+    #--------------------------------------------------------------------------------------
+    # When indexing with '[' or '[[' an R object is returned.  Sometimes we need to have
+    # access to an umboxed Ruby element, for instance, in an numeric array, we might want
+    # to receive the actual number that can be used in a Ruby method.  In this case, we
+    # use the '<<' operator.
+    # @return the Ruby element at the given index in the vector
+    #--------------------------------------------------------------------------------------
+
+    def <<(index)
+      @r_interop[index]
+    end
+
+    #--------------------------------------------------------------------------------------
+    #
+    #--------------------------------------------------------------------------------------
+
+    def pop
+      self << 0
+    end
+    
+    #--------------------------------------------------------------------------------------
+    # @bug
+    # Each cannot return a Enumerator because R is single threaded.  When this restriction
+    # is removed, make each return self.to_enum
+    #--------------------------------------------------------------------------------------
+
+    def each(result = :vec)
+
+      case result
+      when :vec
+        # length is a R::Vector, in order to extract its size as a Numeric we need to
+        # use the << operator
+        (1..length << 0).each do |i|
+          yield self[i]
+        end
+      when :native
+        (0...length << 0).each do |i|
+          yield self << i
+        end
+      else
+        raise "Type #{result} is unknown for method :each"
+      end
+      
+    end
+
+    #--------------------------------------------------------------------------------------
+    # Need to override each_with_index, as R indexing starts at 1
+    #--------------------------------------------------------------------------------------
+
+    def each_with_index(result = :vec)
+      case result
+      when :vec
+        (1..length << 0).each do |i|
+          yield self[i], i
+        end
+      when :native
+        (0...length << 0).each do |i|
+          yield self << i, i
+        end
+      else
+        raise "Type #{result} is unknown for method :each"
+      end
+      
+    end
+    
+    #--------------------------------------------------------------------------------------
+    # SHOULD DEFINE COMPARISON BETWEEN TWO VECTORS
+    #--------------------------------------------------------------------------------------
+
+    def <=>(other_vector)
+      
+    end
+    
+  end
+  
+end
+