galaaz 0.4.6 → 0.5.0

data/bin/gknit_old_r

@@ -1,236 +0,0 @@
-#!/usr/bin/env ruby
-# coding: utf-8
-
-dir = Dir.pwd
-puts "Knitting #{dir}/#{ARGV[0]}"
-
-code = <<EOF
-eval.polyglot("ruby", "$LOAD_PATH.unshift %q(/home/rbotafogo/desenv/galaaz/lib)")
-eval.polyglot("ruby", "require %q(galaaz)")
-eval.polyglot("ruby", "R.install_and_loads %q(knitr)")
-eval.polyglot("ruby", "R.install_and_loads %q(rmarkdown)")
-
-# graphics devices in base R, plus those in Cairo, cairoDevice, tikzDevice
-auto_exts = c(
-  bmp = "bmp", postscript = "eps", pdf = "pdf", png = "png", svg = "svg",
-  jpeg = "jpeg", pictex = "tex", tiff = "tiff", win.metafile = "wmf",
-  cairo_pdf = "pdf", cairo_ps = "eps",
-
-  quartz_pdf = "pdf", quartz_png = "png", quartz_jpeg = "jpeg",
-  quartz_tiff = "tiff", quartz_gif = "gif", quartz_psd = "psd",
-  quartz_bmp = "bmp",
-
-  CairoJPEG = "jpeg", CairoPNG = "png", CairoPS = "eps", CairoPDF = "pdf",
-  CairoSVG = "svg", CairoTIFF = "tiff",
-
-  Cairo_pdf = "pdf", Cairo_png = "png", Cairo_ps = "eps", Cairo_svg = "svg",
-
-  svglite = "svg",
-
-  tikz = "tex"
-)
-
-is_plot_output = function(x) {
-  evaluate::is.recordedplot(x) || inherits(x, "knit_image_paths")
-}
-
-# find recorded plots in the output of evaluate()
-find_recordedplot = function(x) {
-  vapply(x, is_plot_output, logical(1))
-}
-
-dev2ext = function(x) {
-  res = auto_exts[x]
-  if (any(idx <- is.na(res))) {
-    for (i in x[idx]) check_dev(i)
-    stop2(
-      "cannot find appropriate filename extensions for device ", x[idx], "; ",
-      "please use chunk option 'fig.ext' (https://yihui.name/knitr/options)"
-    )
-  }
-  unname(res)
-}
-
-# filter the dev.args option
-get_dargs = function(dargs, dev) {
-  if (length(dargs) == 0) return()
-  if (is.list(dargs) && all(sapply(dargs, is.list))) {
-    # dev.args is list(dev1 = list(arg1 = val1, ...), dev2 = list(arg2, ...))
-    dargs = dargs[[dev]]
-  }
-  dargs
-}
-
-# open a device for a chunk; depending on the option global.device, may or may
-# not need to close the device on exit
-chunk_device = function(
-  width, height, record = TRUE, dev, dev.args, dpi, options, tmp = tempfile()
-) {
-  dev_new = function() {
-    # actually I should adjust the recording device according to dev, but here I
-    # have only considered the png and tikz devices (because the measurement
-    # results can be very different especially with the latter, see #1066), and
-    # also the cairo_pdf device (#1235)
-    if (identical(dev, "png")) {
-      do.call(grDevices::png, c(list(
-        filename = tmp, width = width, height = height, units = "in", res = dpi
-      ), get_dargs(dev.args, "png")))
-    } else if (identical(dev, "tikz")) {
-      dargs = c(list(
-        file = tmp, width = width, height = height
-      ), get_dargs(dev.args, "tikz"))
-      dargs$sanitize = options$sanitize; dargs$standAlone = options$external
-      if (is.null(dargs$verbose)) dargs$verbose = FALSE
-      do.call(tikz_dev, dargs)
-    } else if (identical(dev, "cairo_pdf")) {
-      do.call(grDevices::cairo_pdf, c(list(
-        filename = tmp, width = width, height = height
-      ), get_dargs(dev.args, "cairo_pdf")))
-    } else if (identical(getOption("device"), "pdf_null")) {
-      if (!is.null(dev.args)) {
-        dev.args = get_dargs(dev.args, "pdf")
-        dev.args = dev.args[intersect(names(dev.args), c("pointsize", "bg"))]
-      }
-      do.call(pdf_null, c(list(width = width, height = height), dev.args))
-    } else dev.new(width = width, height = height)
-  }
-  if (!opts_knit$get("global.device")) {
-    dev_new()
-    dev.control(displaylist = if (record) "enable" else "inhibit")  # enable recording
-    # if returns TRUE, we need to close this device after code is evaluated
-    return(TRUE)
-  } else if (is.null(dev.list())) {
-    # want to use a global device but not open yet
-    dev_new()
-    dev.control("enable")
-  }
-  FALSE
-}
-
-showtext = function(show) if (isTRUE(show)) showtext::showtext_begin()
-
-#########################################################################################
-
-# define the ruby engine for processing Ruby chunks in
-# rmarkdown
-eng_ruby = function(options) {
-  block_code = paste(options$code, collapse = "\\n");
-  code = paste0("GalaazUtil.exec_ruby_tor(", 
-                   shQuote(block_code),
-                  ")
-                ");
-
-  keep = options$fig.keep
-  keep.idx = NULL
-  if (is.numeric(keep)) {
-    keep.idx = keep
-    keep = "index"
-  }
-
-  tmp.fig = tempfile(); on.exit(unlink(tmp.fig), add = TRUE)
-
-  # open a device to record plots
-  if (chunk_device(options$fig.width[1L], options$fig.height[1L], keep != "none",
-                   options$dev, options$dev.args, options$dpi, options, tmp.fig)) {
-    # preserve par() settings from the last code chunk
-    if (keep.pars <- opts_knit$get("global.par"))
-      par2(opts_knit$get("global.pars"))
-    showtext(options$fig.showtext)  # showtext support
-    dv = dev.cur()
-    on.exit({
-      if (keep.pars) opts_knit$set(global.pars = par(no.readonly = TRUE))
-      dev.off(dv)
-    }, add = TRUE)
-   }
-
-  # guess plot file type if it is NULL
-  # if (keep != "none" && is.null(options$fig.ext))
-  #   options$fig.ext = dev2ext(options$dev)
-
-  res = eval.polyglot("ruby", code);
-
-# rearrange locations of figures
-#  figs = find_recordedplot(res)
-#  if (length(figs) && any(figs)) {
-#    if (keep == 'none') {
-#      res = res[!figs] # remove all
-#    } else {
-#      if (options$fig.show == 'hold') res = c(res[!figs], res[figs]) # move to the end
-#      figs = find_recordedplot(res)
-#      if (length(figs) && sum(figs) > 1) {
-#        if (keep %in% c('first', 'last')) {
-#          res = res[-(if (keep == 'last') head else tail)(which(figs), -1L)]
-#        } else {
-#          # keep only selected
-#          if (keep == 'index') res = res[which(figs)[keep.idx]]
-#          # merge low-level plotting changes
-#          if (keep == 'high') res = merge_low_plot(res, figs)
-#        }
-#      }
-#    }
-#}
-
-  engine_output(options, out = res)
-
-#  out_list = list(source = block_code, text = res, message = "message from Galaaz",
-#                  warning = "Warning from Galaaz", error = "Error from Galaaz",
-#                  value = "Value from Galaaz")
-#  engine_output(options, out = out_list)
-   # engine_output(options, block_code, res)
-}
-
-knit_engines$set(ruby = eng_ruby)
-
-#########################################################################################
-
-# define the rb engine for inline Ruby code
-eng_rb = function(options) {
-  code = paste0("GalaazUtil.exec_ruby(", 
-                   shQuote(options$label), 
-                  ")
-                ");
-  out = eval.polyglot("ruby", code)
-  return(out)
-}
-
-knit_engines$set(rb = eng_rb)
-
-#########################################################################################
-
-# define the include engine for including Ruby files
-# in place
-
-eng_include = function(options) {
-  if (is.null(options$relative) | isTRUE(options$relative)) {
-    req = "require_relative "
-  } else {
-    req = "require "
-  }
-
-  # read the file and store it to output in the code block
-  code = paste0("GalaazUtil.inline_file(", 
-                   shQuote(options$label),
-                   ", ",
-                   shQuote(req),
-                  ")
-                ");
-  include = eval.polyglot("ruby", code);
-
-  # require the file
-  require = paste0(req, shQuote(options$label));
-  code = paste0("GalaazUtil.exec_ruby(", 
-                   shQuote(require), 
-                  ")
-                ");
-
-  out = eval.polyglot("ruby", code);
-  engine_output(options, include, out)
-}
-
-knit_engines$set(include = eng_include)
-
-
-rmarkdown::render("#{dir}/#{ARGV[0]}")
-EOF
-
-exec "Rscript --jvm --polyglot -e '#{code}'"

data/blogs/dev/dev.Rmd

@@ -1,77 +0,0 @@
----
-title: "gKnit - Ruby and R Knitting with Galaaz in GraalVM"
-author: "Rodrigo Botafogo"
-tags: [Galaaz, Ruby, R, TruffleRuby, FastR, GraalVM, knitr]
-date: "19 October 2018"
-output:
-  html_document:
-    self_contained: true
-    keep_md: true
-  pdf_document:
-    includes:
-      in_header: ["../../sty/galaaz.sty"]
-    number_sections: yes
----
-
-```{r setup, echo=FALSE}
-
-```
-
-# Introduction
-
-
-```{r bubble}
-# load package and data
-library(ggplot2)
-data(mpg, package="ggplot2")
-# mpg <- read.csv("http://goo.gl/uEeRGu")
-
-mpg_select <- mpg[mpg$manufacturer %in% c("audi", "ford", "honda", "hyundai"), ]
-
-# Scatterplot
-theme_set(theme_bw())  # pre-set the bw theme.
-g <- ggplot(mpg_select, aes(displ, cty)) + 
-  labs(subtitle="mpg: Displacement vs City Mileage",
-       title="Bubble chart")
-
-g + geom_jitter(aes(col=manufacturer, size=hwy)) + 
-  geom_smooth(aes(col=manufacturer), method="lm", se=F)
-```
-
-### Plotting
-
-```{ruby diverging_bar}
-require 'ggplot'
-
-R.theme_set R.theme_bw
-
-# Data Prep
-mtcars = ~:mtcars
-mtcars.car_name = R.rownames(:mtcars)
-# compute normalized mpg 
-mtcars.mpg_z = ((mtcars.mpg - mtcars.mpg.mean)/mtcars.mpg.sd).round 2
-mtcars.mpg_type = mtcars.mpg_z < 0 ? "below" : "above"
-mtcars = mtcars[mtcars.mpg_z.order, :all]
-# convert to factor to retain sorted order in plot
-mtcars.car_name = mtcars.car_name.factor levels: mtcars.car_name
-
-# Diverging Barcharts
-gg = mtcars.ggplot(E.aes(x: :car_name, y: :mpg_z, label: :mpg_z)) + 
-     R.geom_bar(E.aes(fill: :mpg_type), stat: 'identity',  width: 0.5) +
-     R.scale_fill_manual(name: "Mileage", 
-                         labels: R.c("Above Average", "Below Average"), 
-                         values: R.c("above": "#00ba38", "below": "#f8766d")) + 
-     R.labs(subtitle: "Normalised mileage from 'mtcars'", 
-            title: "Diverging Bars") + 
-     R.coord_flip()
-
-print gg
-```
-
-![Diverging Barcharts](dev_files/figure-html/diverging_bar.png){width=70%}
-
-
-```{ruby vec}
-@vec = R.c(1, 2, 3)
-puts @vec
-```

data/blogs/dev/dev.md

@@ -1,87 +0,0 @@
----
-title: "gKnit - Ruby and R Knitting with Galaaz in GraalVM"
-author: "Rodrigo Botafogo"
-tags: [Galaaz, Ruby, R, TruffleRuby, FastR, GraalVM, knitr]
-date: "19 October 2018"
-output:
-  html_document:
-    self_contained: true
-    keep_md: true
-  pdf_document:
-    includes:
-      in_header: ["../../sty/galaaz.sty"]
-    number_sections: yes
----
-
-
-
-# Introduction
-
-
-
-```r
-# load package and data
-library(ggplot2)
-data(mpg, package="ggplot2")
-# mpg <- read.csv("http://goo.gl/uEeRGu")
-
-mpg_select <- mpg[mpg$manufacturer %in% c("audi", "ford", "honda", "hyundai"), ]
-
-# Scatterplot
-theme_set(theme_bw())  # pre-set the bw theme.
-g <- ggplot(mpg_select, aes(displ, cty)) + 
-  labs(subtitle="mpg: Displacement vs City Mileage",
-       title="Bubble chart")
-
-g + geom_jitter(aes(col=manufacturer, size=hwy)) + 
-  geom_smooth(aes(col=manufacturer), method="lm", se=F)
-```
-
-![](/home/rbotafogo/desenv/galaaz/blogs/dev/dev_files/figure-html/bubble-1.png)<!-- -->
-
-### Plotting
-
-
-```ruby
-require 'ggplot'
-
-R.theme_set R.theme_bw
-
-# Data Prep
-mtcars = ~:mtcars
-mtcars.car_name = R.rownames(:mtcars)
-# compute normalized mpg 
-mtcars.mpg_z = ((mtcars.mpg - mtcars.mpg.mean)/mtcars.mpg.sd).round 2
-mtcars.mpg_type = mtcars.mpg_z < 0 ? "below" : "above"
-mtcars = mtcars[mtcars.mpg_z.order, :all]
-# convert to factor to retain sorted order in plot
-mtcars.car_name = mtcars.car_name.factor levels: mtcars.car_name
-
-# Diverging Barcharts
-gg = mtcars.ggplot(E.aes(x: :car_name, y: :mpg_z, label: :mpg_z)) + 
-     R.geom_bar(E.aes(fill: :mpg_type), stat: 'identity',  width: 0.5) +
-     R.scale_fill_manual(name: "Mileage", 
-                         labels: R.c("Above Average", "Below Average"), 
-                         values: R.c("above": "#00ba38", "below": "#f8766d")) + 
-     R.labs(subtitle: "Normalised mileage from 'mtcars'", 
-            title: "Diverging Bars") + 
-     R.coord_flip()
-
-print gg
-```
-
-```
-## This is the fake output
-```
-
-![Diverging Barcharts](dev_files/figure-html/diverging_bar.png){width=70%}
-
-
-```ruby
-@vec = R.c(1, 2, 3)
-puts @vec
-```
-
-```
-## This is the fake output
-```

data/blogs/dplyr/dplyr.rb

@@ -1,63 +0,0 @@
-R.library('dplyr')
-R.library('nycflights13')
-
-puts R.filter(:flights, (:month.eq 1), (:day.eq 1))  # exec time: 0.15 sec
-
-flights = ~:flights
-
-puts flights
-
-# In this call, 'flights' will be inlined in the expression and
-# passed to method 'filter'. If 'filter' wants to print it's
-# first argument, it will print the dataframe.
-puts flights.filter((:month.eq 1), (:day.eq 1))       # exec time: 0.146 sec
-
-# In this call, the symbol 'flights' is the first argument to method
-# filter.  If 'filter' wants to print it's arguments, it will print
-# 'flights'.
-puts :flights.filter((:month.eq 1), (:day.eq 1))
-
-puts flights.filter((:month.eq 12), (:day.eq 25))
-puts flights.filter(:month._ :in, R.c(11, 12))
-puts flights.filter(!((:arr_delay > 120) | (:dep_delay > 120)))
-puts flights.arrange(:year, :month, :day)
-puts flights.arrange(E.desc(:arr_delay))
-puts flights.select(:year, :month, :day)
-puts flights.select(R::S.columns(:year, :day))
-puts flights.select(R::S.columns(:year, :day, remove: true))
-puts flights.rename(tail_num: :tailnum)
-puts flights.select(:time_hour, :air_time, E.everything)
-
-#=begin
-flights_sml =
-  flights.
-    select(R::S.columns(:year, :day),
-           E.ends_with("delay"),
-           :distance,
-           :air_time)
-
-puts flights_sml
-
-puts flights_sml.mutate(gain: (:arr_delay - :dep_delay),
-                        speed: (:distance / :air_time * 60))
-
-puts flights_sml.mutate(gain: :arr_delay - :dep_delay,
-                        hours: (:air_time / 60),
-                        gain_per_hour: (:gain / :hours))
-
-#=end
-
-#=begin
-expr = E.transmute(:flights, :dep_time,
-                   hour: (:dep_time.int_div 100.0),
-                   minute: :dep_time % 100.0)
-puts expr
-puts expr.ast
-puts expr.eval
-
-
-lst = R.list(x: 10, y: 20)
-e = E.eval(:sum, :x, :y, lst)
-e.eval
-
-#=end