galaaz 0.4.0 → 0.4.1

data/lib/{r.rb → R/r.rb}

@@ -116,3 +116,4 @@ require_relative 'expression'
 require_relative 'ruby_extensions'
 # Class to allow R calling back into Ruby
 require_relative 'ruby_callback'
+

data/lib/R/r.rb~

@@ -0,0 +1,121 @@
+# -*- 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_relative 'robject'
+require_relative 'rsupport'
+
+module R
+
+  RCONSTANTS = ["LETTERS", "letters", "month.abb", "month.name", "pi"]
+
+  #----------------------------------------------------------------------------------------
+  #
+  #----------------------------------------------------------------------------------------
+
+  def self.method_missing(symbol, *args, &block)
+    
+    if (block_given?)
+      val = R::Support.process_missing(symbol, false, *args)
+      return R::Support.new_scope(symbol, val, *args, &block)
+    end
+
+    R::Support.process_missing(symbol, false, *args)
+
+  end
+
+  #----------------------------------------------------------------------------------------
+  #
+  #----------------------------------------------------------------------------------------
+
+  def self.internal_eval(symbol, *args)
+    R::Support.process_missing(symbol, true, *args)
+  end
+
+  #----------------------------------------------------------------------------------------
+  # Checks to see if the given libs are installed in R and if not, install them
+  # @param libs [Array] Array of strings with the names of the libraries to check and
+  # install
+  #----------------------------------------------------------------------------------------
+
+  def self.install_rlibs(*libs)
+
+    packages = R.c(libs)
+
+    new_packages = packages[!(packages._ :in, R.installed__packages[:all, "Package"])]
+    if(new_packages.size > 0)
+      puts "The following packages are missing and will be installed:\n #{new_packages}"
+      R.install__packages(new_packages)
+    end
+    
+  end
+
+  #----------------------------------------------------------------------------------------
+  #
+  #----------------------------------------------------------------------------------------
+
+  def self.install_and_loads(*libs)
+    R.install_rlibs(*libs)
+    libs.each { |lib| R.require lib }
+  end
+  
+end
+
+# define methods for accessing indexed object: Vector, Lists
+require_relative 'rindexed_object'
+# define methods for accessing multi dimensional indexed objects: Matrix, DataFrames
+require_relative 'rmd_indexed_object'
+# Binary operators: '+', '-', etc
+require_relative 'rbinary_operators'
+# Unary operators: '!', '@-', etc
+require_relative 'runary_operators'
+# Definition of R Vector
+require_relative 'rvector'
+# Definition of R Lists
+require_relative 'rlist'
+# Definition of R Matrix
+require_relative 'rmatrix'
+# Definition of R DataFrame
+require_relative 'rdata_frame'
+# Definition of R Closure (functions)
+require_relative 'rclosure'
+# Definition of R Expression
+require_relative 'rexpression'
+# Definition of R Environment
+require_relative 'renvironment'
+# Definition of R Language
+require_relative 'rlanguage'
+# Definition of R Symbol
+require_relative 'rsymbol'
+# Access to package symbols
+require_relative 'rpkg'
+
+# Defines the E module for creating R expressions
+require_relative 'expression'
+# Ruby class extensions.  Extends Symbol to allow the creation of
+# expressions using Symbol: (:x > 10)
+require_relative 'ruby_extensions'
+# Class to allow R calling back into Ruby
+require_relative 'ruby_callback'
+
+# Util to execute Ruby code in a string redirecting stdout
+require_relative 'util/exec_ruby'

data/lib/galaaz.rb

@@ -21,7 +21,8 @@
 # OR MODIFICATIONS.
 ##########################################################################################
 
-require_relative 'r'
+require_relative 'R/r'
+require_relative 'util/exec_ruby'
 
 $LOAD_PATH << File.dirname(File.expand_path('..', __FILE__)) + "/r_requires"
 

data/lib/util/exec_ruby.rb

@@ -0,0 +1,44 @@
+# -*- 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 'stringio'
+
+module GalaazUtil
+  
+  def self.exec_ruby(code)
+    # Set up standard output as a StringIO object.
+    foo = StringIO.new
+    $stdout = foo
+    
+    eval code
+    
+    out = $stdout.string
+    
+    # return $stdout to standard output
+    $stdout = STDOUT
+    
+    # return everything that was outputed
+    out
+  end
+
+end

data/specs/tmp.rb

@@ -23,6 +23,48 @@
 
 require 'galaaz'
 
+# puts GalaazUtil.exec_ruby("puts 1 + 1")
+
+=begin
+R::Support.eval(<<-R)
+  print.polyglot.value = function(poly) {
+    print("printing external");
+    print(poly$puts());
+  }
+
+R
+
+ext = R::Support.eval(<<-R)
+  function(data) {
+    print(data);
+  }
+R
+
+class User
+
+  attr_reader :id
+  attr_reader :name
+
+  def initialize
+    @id = 1
+    @name = ["a", "b", "c"]
+  end
+
+  def method_missing(symbol, *args)
+    p symbol
+    p args
+  end
+
+  def puts(*args)
+    @id
+  end
+  
+end
+
+ext.call(User.new)
+=end
+
+=begin
 class ArrayEmul
   attr_reader :array
 
@@ -79,7 +121,7 @@ puts h
 r_obj = make_obj.call(h)
 p Polyglot.eval("R", "print").call(r_obj, 0)[0]
 
-
+=end
 
 
 =begin
@@ -132,3 +174,127 @@ puts R.model__frame(+:y =~ +:x + +:x2 + (+:x ^ +:x2),
 puts R.model__frame(+:y =~ +:x + (:x ** 2).i,
                     data: R.data__frame(x: R.rnorm(5), y: R.rnorm(5)))
 =end
+=begin
+class User
+  
+  attr_reader :id
+  attr_reader :name
+  attr_reader :favoriteLanguage
+  
+  def initialize(id, name, favorite_language)
+    @id = id
+    @name = name
+    @favorite_language = favorite_language
+  end
+  
+end
+
+class NameColumn
+
+  attr_reader :users
+  
+  def initialize(users)
+    @users = users
+  end
+
+  def get(index)
+    users[index].name
+  end
+
+  def set(index, val)
+  end
+
+  def getSize
+    users.size
+  end
+
+  def method_missing(symbol, *args)
+    puts "NameColumn method_missing"
+    puts symbol
+    puts args
+  end
+  
+end
+
+class IdColumn
+
+  attr_reader :users
+  
+  def initialize(users)
+    @users = users
+  end
+
+  def get(index)
+    users[index].id
+  end
+
+  def set(index, val)
+  end
+
+  def getSize
+    users.size
+  end
+  
+  def method_missing(symbol, *args)
+    puts "IdColumn method_missing"
+    puts symbol
+    puts args
+  end
+
+end
+
+class UsersTable
+  attr_reader :id
+  attr_reader :name
+  attr_reader :language
+
+  def initialize(users)
+    @users = users
+    @id = IdColumn.new(users)
+    @name = NameColumn.new(users)
+  end
+
+  def getSize
+    puts users.size
+    users.size
+  end
+
+  def method_missing(symbol, *args)
+    puts "UsersTable method_missing"
+    puts symbol
+    puts args
+  end
+  
+end
+
+rf = R::Support.eval(<<-R)
+  function(table) { 
+    print(table);
+    table <- as.data.frame(table);
+    cat('The whole data frame printed in R:\n');
+    print(table);
+    cat('---------\n\n');
+
+    cat('Filter out users with ID>2:\n');
+    print(table[table$id > 2,]);
+    cat('---------\n\n');
+
+    cat('How many users like Java: ');
+    cat(nrow(table[table$language == 'Java',]), '\n');
+  }
+R
+
+users = []
+users << User.new(1, "Florian", "Python")
+users << User.new(2, "Lukas", "R")
+users << User.new(3, "Mila", "Java")
+users << User.new(4, "Paley", "Coq")
+users << User.new(5, "Stepan", "C#")
+users << User.new(6, "Tomas", "Java")
+users << User.new(7, "Zbynek", "Scala")
+
+puts users[0].name
+ut = UsersTable.new(users)
+rut = R.list(ut)
+rf.call(rut)
+=end

data/version.rb

@@ -1,2 +1,2 @@
 $gem_name = "galaaz"
-$version="0.4.0"
+$version="0.4.1"

metadata

@@ -1,15 +1,29 @@
 --- !ruby/object:Gem::Specification
 name: galaaz
 version: !ruby/object:Gem::Version
-  version: 0.4.0
+  version: 0.4.1
 platform: ruby
 authors:
 - Rodrigo Botafogo
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2018-10-05 00:00:00.000000000 Z
+date: 2018-10-18 00:00:00.000000000 Z
 dependencies:
+- !ruby/object:Gem::Dependency
+  name: pry
+  prerelease: false
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.10'
+  type: :runtime
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.10'
 - !ruby/object:Gem::Dependency
   name: rspec
   prerelease: false
@@ -83,16 +97,30 @@ description: "Galaaz brings the power of R to the Ruby community. Galaaz \nis ba
 email: rodrigo.a.botafogo@gmail.com
 executables:
 - galaaz
+- gstudio
+- gknit
 extensions: []
 extra_rdoc_files: []
 files:
 - README.md
 - Rakefile
 - bin/galaaz
+- bin/gknit
+- bin/gstudio
+- bin/gstudio.rb
+- bin/ogk~
+- blogs/galaaz_ggplot/galaaz_ggplot.Rmd
+- blogs/galaaz_ggplot/galaaz_ggplot.html
+- blogs/galaaz_ggplot/galaaz_ggplot.md
+- blogs/galaaz_ggplot/midwest.Rmd
+- blogs/galaaz_ggplot/midwest.html
+- blogs/galaaz_ggplot/midwest.png
+- blogs/galaaz_ggplot/scatter_plot.png
+- examples/50Plots_MasterList/Images/midwest-scatterplot.PNG
+- examples/50Plots_MasterList/ScatterPlot.rb
 - examples/50Plots_MasterList/scatter_plot.rb
-- examples/baseball.csv
-- examples/baseball.rb
-- examples/ggplot.rb
+- examples/R/calc.R
+- examples/R/java_interop.R
 - examples/islr/Figure.jpg
 - examples/islr/all.rb
 - examples/islr/ch2.spec.rb
@@ -100,6 +128,12 @@ files:
 - examples/islr/ch3_boston.rb
 - examples/islr/ch3_multiple_regression.rb
 - examples/islr/ch6.spec.rb
+- examples/misc/baseball.csv
+- examples/misc/ggplot.rb
+- examples/misc/moneyball.rb
+- examples/misc/moneyball.rb~
+- examples/misc/subsetting.rb
+- examples/misc/subsetting.rb~
 - examples/paper/paper.rb
 - examples/sthda_ggplot/README.md
 - examples/sthda_ggplot/all.rb
@@ -130,30 +164,31 @@ files:
 - examples/sthda_ggplot/two_variables_disc_cont/geom_violin.rb
 - examples/sthda_ggplot/two_variables_disc_disc/geom_jitter.rb
 - examples/sthda_ggplot/two_variables_error/geom_crossbar.rb
-- examples/subsetting.rb
-- lib/expression.rb
+- lib/R/expression.rb
+- lib/R/r.rb
+- lib/R/r.rb~
+- lib/R/r_methods.rb
+- lib/R/rbinary_operators.rb
+- lib/R/rclosure.rb
+- lib/R/rdata_frame.rb
+- lib/R/renvironment.rb
+- lib/R/rexpression.rb
+- lib/R/rindexed_object.rb
+- lib/R/rlanguage.rb
+- lib/R/rlist.rb
+- lib/R/rmatrix.rb
+- lib/R/rmd_indexed_object.rb
+- lib/R/robject.rb
+- lib/R/rpkg.rb
+- lib/R/rsupport.rb
+- lib/R/rsupport_scope.rb
+- lib/R/rsymbol.rb
+- lib/R/ruby_callback.rb
+- lib/R/ruby_extensions.rb
+- lib/R/runary_operators.rb
+- lib/R/rvector.rb
 - lib/galaaz.rb
-- lib/r.rb
-- lib/r_methods.rb
-- lib/rbinary_operators.rb
-- lib/rclosure.rb
-- lib/rdata_frame.rb
-- lib/renvironment.rb
-- lib/rexpression.rb
-- lib/rindexed_object.rb
-- lib/rlanguage.rb
-- lib/rlist.rb
-- lib/rmatrix.rb
-- lib/rmd_indexed_object.rb
-- lib/robject.rb
-- lib/rpkg.rb
-- lib/rsupport.rb
-- lib/rsupport_scope.rb
-- lib/rsymbol.rb
-- lib/ruby_callback.rb
-- lib/ruby_extensions.rb
-- lib/runary_operators.rb
-- lib/rvector.rb
+- lib/util/exec_ruby.rb
 - r_requires/ggplot.rb
 - specs/all.rb
 - specs/r_dataframe.spec.rb