galaaz 0.4.7 → 0.4.8

data/specs/r_list.spec.rb

@@ -59,7 +59,7 @@ describe R::List do
   end
 
   #----------------------------------------------------------------------------------------
-  context "When subsetting a list with '<<' (starts at 0)" do
+  context "When subsetting a list with '>>' (starts at 0)" do
     
     before(:each) do
       @l = R.list(1, a: 2, b: 3, c: R.list(4, 5, 6))
@@ -170,12 +170,12 @@ describe R::List do
       expect(@l[[4]][[1]]).to eq 4
     end
     
-    it "should subset with [[]] with multiple indexes" do
+    it "should subset with [[]] with a vector" do
       # Note that for a list or other recursive object, the index can be a vector
       # and each element of the vector is applied in turn to the list, the
       # selected component, the selected component of that component, and so on.
       # The result is still a single element.
-      expect(@l[[4, 1]]).to eq 4
+      expect(@l[[R.c(4, 1)]]).to eq 4
     end
 
   end
@@ -230,7 +230,7 @@ describe R::List do
   end
 
   #----------------------------------------------------------------------------------------
-  context "When modifying a list" do
+  context "When assigning to a list subset" do
 
     before(:each) do
       @l = R.list(a: 1, b: 2, c: 3, d: R.list(i: 4, j: 5, k: 6))

data/specs/ruby_expression.spec.rb

@@ -288,18 +288,9 @@ describe Symbol do
 
       # df is a Ruby symbol and ToothGrowth is an R dataframe.  But at this point
       # there is no relationship between the two
-      df = :ToothGrowth
-      
-      # we now call a method on a Ruby symbol.  This will try to identify if this
-      # method exists in the R dataframe.  This is one of the columns of the R
-      # dataframe, so 'dose' is now an R expression
+      df = ~:ToothGrowth
       dose = df.dose
-      expect(dose.to_s).to eq "ToothGrowth[[\"dose\"]]"
-
-      # dose.assign is an R expression, equivalent to 'ToothGrowth[["dose"]] <-'
-      # an the whole expression becomes:
-      # 'ToothGrowth[["dose"]] <- as.factor(ToothGrowth[["dose"]])'
-      dose.assign dose.as__factor
+      dose = dose.as__factor
       
       df2 = R.data__frame(
         R.aggregate(df.len, by: R.list(dose), FUN: :mean),

data/specs/tmp.rb

@@ -22,55 +22,97 @@
 ##########################################################################################
 
 require 'galaaz'
-R.require 'stats'
+require 'ggplot'
 
-# require 'ggplot'
+# R.install_and_loads('nycflights13')
+# R.install_and_loads 'dplyr'
 
-# Need to fix function 'str'... not printing anything
-# anymore
-# puts R.str(mtcars)
-# shouls allow mtcars[['car name']] = mtcars.rownames
+R.awt
+x = R.rnorm(100)
+y = R.rnorm(100)
+# plot commands do not work.  Need to work with ggplot or grid
+# qplot uses a similar interface as plot
+# Need to call print at the end of the plot
+R.qplot(x, y,
+        xlab: "this is the x-axis",
+        ylab: "this is the y-axis",
+        main: "Plot of X vs Y")
+  .print
+# the graphics dies when the script ends... waiting 3 secs
+# so that the graphic can be seen
+sleep(3)
 
-# (~:mtcars).str
+## Renaming columns
 
-describe R::List do
-  
-  context "The apply family of functions with lists" do
+#The rename function is used to rename columns
 
+#```{ruby rename}
+#puts @flights.rename(dep_time: 'deptime').head.as__data__frame
+#```
 
-    x = R.list(a: (1..10), beta: R.exp(-3..3), logic: R.c(true, false, false, true))
-#puts x
 
-    quant = R.lapply(x, ~:quantile)
-#puts quant
-#puts quant.a[['50,00000%']]
+# puts File.directory?(".")
 
-# puts quant.beta['100%']
 
-    it "ss" do
-      
-      ret = R.all__equal(quant.beta["100%"],
-                         R.c('100%': 20.08553692),
-                         tolerance: (~:".Machine").double__eps ** 0.5)
-      expect(R.c(1, 2, 3)).to eq false
-      # expect(5 == 10).to eq true
-    end
-  end
-end
 
-=begin
-# Make @q the function R quantile
 
-#puts quant.a
 
-# puts quant.a[["50%"]]
+#===========================================================
+=begin
+# Add NULL to an element of the list
+# Not implemented yet.  Need to assing the
+# list(NULL) element.
+R::Support.eval(<<-R)
+y <- list(a = 1, b = 2)
+y["b"] <- list(NULL)
+str(y)
+
+print(list(NULL))
+R
 =end
 
 
 =begin
-R::Support.eval(<<R)
-  x = list(a = (1:10), beta = exp(-3:3), logic = c(TRUE, FALSE, FALSE, TRUE))
-  quant = lapply(x, quantile)
-  print(quant)
+Polyglot.eval("R", <<-R)
+  fidx = function(idx) {
+      print(typeof(idx))
+      print(class(idx))
+      print(idx)
+      print(is_missing(idx))
+  }
+
+  ma = missing_arg()
+  f = fidx
+  params = list()
+  params = `[[<-`(params, 1, ma)
+  invoke(f, params)
+
+  print("======")
+  fidx(ma)
+
 R
 =end
+
+=begin
+ma = Polyglot.eval("R", "missing_arg()")
+
+puts "======"
+
+f = Polyglot.eval("R", "fidx")
+params = Polyglot.eval("R", "list()")
+params = Polyglot.eval("R", "`[[<-`").call(params, 1, ma)
+Polyglot.eval("R", "invoke").call(f, params)
+
+puts "======"
+
+Polyglot.eval("R", "fidx").call(ma)
+=end
+
+# Polyglot.eval("R", "print").call(pl)
+# ma2 = Polyglot.eval("R", "`[[`").call(pl, 1)
+# Polyglot.eval("R", "fidx").call(ma2)
+
+#R.fidx(ma)
+
+# R.fidx(Polyglot.eval("R", "missing_arg()"))
+# R.fidx(R.empty_symbol)

data/version.rb

@@ -1,2 +1,2 @@
 $gem_name = "galaaz"
-$version="0.4.7"
+$version="0.4.8"

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: galaaz
 version: !ruby/object:Gem::Version
-  version: 0.4.7
+  version: 0.4.8
 platform: ruby
 authors:
 - Rodrigo Botafogo
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2019-03-22 00:00:00.000000000 Z
+date: 2019-04-21 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
@@ -85,12 +85,12 @@ files:
 - bin/gstudio
 - bin/gstudio.rb
 - blogs/dev/dev.Rmd
-- blogs/dev/dev.html
 - blogs/dev/dev.md
-- blogs/dev/dev_files/figure-html/bubble-1.png
-- blogs/dev/dev_files/figure-html/diverging_bar.
-- blogs/dev/dev_files/figure-html/diverging_bar.png
+- blogs/dev/dev2.Rmd
 - blogs/dev/model.rb
+- blogs/dplyr/dplyr.Rmd
+- blogs/dplyr/dplyr.html
+- blogs/dplyr/dplyr.md
 - blogs/dplyr/dplyr.rb
 - blogs/galaaz_ggplot/galaaz_ggplot.Rmd
 - blogs/galaaz_ggplot/galaaz_ggplot.aux
@@ -111,6 +111,7 @@ files:
 - blogs/gknit/gknit_files/figure-html/bubble-1.png
 - blogs/gknit/gknit_files/figure-html/diverging_bar.png
 - blogs/gknit/model.rb
+- blogs/manual/graph.rb
 - blogs/manual/manual.Rmd
 - blogs/manual/manual.html
 - blogs/manual/manual.md
@@ -129,16 +130,26 @@ files:
 - blogs/ruby_plot/ruby_plot.md
 - blogs/ruby_plot/ruby_plot.pdf
 - blogs/ruby_plot/ruby_plot.tex
+- blogs/ruby_plot/ruby_plot_files/figure-html/dose_len.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/dose_len.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/facet_by_delivery.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/facet_by_delivery.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/facet_by_dose.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/facet_by_dose.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/facets_by_delivery_color.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/facets_by_delivery_color.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/facets_by_delivery_color2.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/facets_by_delivery_color2.svg
 - blogs/ruby_plot/ruby_plot_files/figure-html/facets_with_decorations.png
+- blogs/ruby_plot/ruby_plot_files/figure-html/facets_with_jitter.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/facets_with_jitter.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/facets_with_points.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/facets_with_points.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/final_box_plot.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/final_box_plot.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/final_violin_plot.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/final_violin_plot.svg
+- blogs/ruby_plot/ruby_plot_files/figure-html/violin_with_jitter.png
 - blogs/ruby_plot/ruby_plot_files/figure-html/violin_with_jitter.svg
 - examples/50Plots_MasterList/Images/midwest-scatterplot.PNG
 - examples/50Plots_MasterList/ScatterPlot.rb