galaaz 0.5.0 → 2.0.0

data/examples/misc/ggplot.rb

@@ -125,7 +125,7 @@ module LightBlueTheme
   
 end
 
-R.awt
+# R.awt
 
 plot = R.grid__arrange(
   LightBlueTheme.graph_title("Cars: wt x mpg"),
@@ -137,7 +137,8 @@ plot = R.grid__arrange(
   heights: R.c(0.050, 0.025, 0.85, 0.05)
 )
 
-plot.print
+# plot.print
+R.ggsave("cars_plot.png", plot)
 
 =begin
 sleep(5)

data/examples/multithread_shards_to_r/shards_to_r.rb

@@ -0,0 +1,67 @@
+# frozen_string_literal: true
+
+# Multithreaded Ruby → single R workflow
+#
+# Pattern: JRuby runs several threads (e.g. one connection per shard). Each thread
+# performs I/O-bound work (here simulated; replace with Sequel/SQLite/pg per shard).
+# Results are merged in Ruby, then passed to R in one or a few bridge calls for
+# analytics (dplyr on an Arrow table, or a plain data.frame).
+#
+# Run from repo root (JRuby + R as for other examples):
+#   jruby examples/multithread_shards_to_r/shards_to_r.rb
+#
+# See also:
+#   specs/bridge_concurrent_spec.rb — many threads calling R; bridge serializes.
+#   specs/arrow_from_ruby_batches_spec.rb — same merge → R pattern with Arrow.
+
+require 'galaaz'
+
+SHARD_COUNT = 3
+ROWS_PER_SHARD = 200
+
+# Replace this with a real query, e.g.:
+#   Sequel.connect(ENV.fetch("DATABASE_URL_SHARD_#{shard_id}"))
+#     .fetch("SELECT id, region, amount FROM events WHERE shard_id = ?", shard_id)
+#     .map { |r| r.symbolize_keys }
+def fetch_rows_from_shard(shard_id)
+  base = shard_id * ROWS_PER_SHARD
+  (0...ROWS_PER_SHARD).map do |j|
+    n = base + j
+    {
+      shard: shard_id,
+      id: n,
+      region: "r#{n % 4}",
+      amount: (n % 17) + 1.0
+    }
+  end
+end
+
+batches = []
+batch_mx = Mutex.new
+
+threads = SHARD_COUNT.times.map do |sid|
+  Thread.new do
+    rows = fetch_rows_from_shard(sid)
+    batch_mx.synchronize { batches << rows }
+  end
+end
+threads.each(&:join)
+
+merged = batches.flatten
+puts "Collected #{merged.size} rows from #{SHARD_COUNT} threads in Ruby"
+
+unless R::Support.eval("requireNamespace('arrow', quietly=TRUE) && requireNamespace('dplyr', quietly=TRUE)") == true
+  warn 'Skipping R aggregation: install R packages arrow and dplyr, or use R.data__frame from merged hashes.'
+  exit 0
+end
+
+tbl = R::Arrow.from_ruby_batches(merged)
+grouped = R.dplyr___group_by(tbl, :region)
+summarised = R.dplyr___summarise(
+  grouped,
+  n: E.n,
+  total: E.sum(:amount),
+  mean_amt: E.mean(:amount)
+)
+out = R.dplyr___collect(summarised)
+puts R.as__data__frame(out)

data/examples/sthda_ggplot/RUN.md

@@ -0,0 +1,41 @@
+# Running sthda_ggplot examples
+
+Use the same JRuby and JVM options as the specs (required for Apache Arrow).
+
+## Run all sthda_ggplot examples
+
+From the project root:
+
+```bash
+jruby -I lib -J--add-opens=java.base/java.nio=org.apache.arrow.memory.core,ALL-UNNAMED examples/sthda_ggplot/all.rb
+```
+
+Or with the helper script (if present):
+
+```bash
+bin/run_example examples/sthda_ggplot/all.rb
+```
+
+## Run a single example
+
+```bash
+jruby -I lib -J--add-opens=java.base/java.nio=org.apache.arrow.memory.core,ALL-UNNAMED examples/sthda_ggplot/one_variable_continuous/geom_density.rb
+```
+
+Examples that open a display (e.g. `R.awt` / X11) will show a window; some examples use `sleep(2)` between plots.
+
+## Via Rake (default Ruby)
+
+The default task runs all sthda examples:
+
+```bash
+rake sthda:all
+```
+
+A single example (replace with the file path under `examples/sthda_ggplot/`):
+
+```bash
+rake "sthda:one_variable_continuous/geom_density"
+```
+
+Note: Rake uses `ruby --polyglot --jvm -Ilib/` (TruffleRuby-style). For JRuby + Shadow Bridge, use the `jruby` command above.

data/examples/sthda_ggplot/one_variable_continuous/geom_density.rb

@@ -38,6 +38,8 @@ a = wdata.ggplot(E.aes(x: :weight))
 # Aggregate the data by sex
 mu = R.aggregate(wdata.weight, by: R.list(wdata.sex), FUN: :mean)
 mu.names = R.c("sex", "grp_mean")
+puts "MU CLASS: #{R.bridge.eval_r("paste(class(#{mu.r_interop}), collapse=' ')")}"
+puts "MU NAMES: #{R.bridge.eval_r("names(#{mu.r_interop})")}"
 puts mu
 
 R.awt

data/examples/sthda_ggplot/two_variables_cont_function/geom_area.rb

@@ -46,9 +46,10 @@ R.grid__newpage
 # a subset of economics data set is used
 R.set__seed(1234)
 
-# Remember that nrow is an R::Vector.  To use it in a Ruby range we
-# need to 'pop' its value as Numeric
-ss = economics[R.sample((1..economics.nrow.pop), 20), :all]
+# nrow returns a numeric (or R vector); use it in a Ruby range for sampling row indices
+n = economics.nrow
+n = n.respond_to?(:pop) ? n.pop : n
+ss = economics[R.sample((1..n), 20), :all]
 
 print ss.ggplot(E.aes(x: :date, y: :unemploy)) + 
       R.geom_step

data/ext/new_bridge/Makefile

@@ -0,0 +1,46 @@
+# Makefile for Galaaz Gatekeeper shared library
+# Usage: make clean all
+
+# R configuration
+R_HOME := $(shell R RHOME)
+R_CPPFLAGS := $(shell $(R_HOME)/bin/R CMD config --cppflags)
+R_LIBS := $(shell $(R_HOME)/bin/R CMD config --ldflags)
+
+# Rcpp configuration
+RCPP_INCLUDE := $(shell $(R_HOME)/bin/Rscript -e "cat(system.file('include', package='Rcpp'))")
+RCPP_CPPFLAGS := -I$(RCPP_INCLUDE)
+
+# Compiler settings
+CXX := $(shell $(R_HOME)/bin/R CMD config CXX)
+CXXFLAGS := $(shell $(R_HOME)/bin/R CMD config CXXFLAGS)
+CPPFLAGS := $(R_CPPFLAGS) $(RCPP_CPPFLAGS) -I.
+# Core R library only (avoid system libs that may not be present)
+LDFLAGS := -L$(R_HOME)/lib -lR -Wl,-rpath,$(R_HOME)/lib
+
+# Target library
+TARGET := galaaz_gatekeeper.so
+SRC := galaaz_gatekeeper_phase1.cpp
+OBJ := $(SRC:.cpp=.o)
+
+.PHONY: all clean check
+
+all: $(TARGET)
+
+$(TARGET): $(OBJ)
+	$(CXX) -shared -o $@ $^ $(LDFLAGS)
+
+%.o: %.cpp
+	$(CXX) $(CXXFLAGS) $(CPPFLAGS) -fPIC -c $< -o $@
+
+check: $(TARGET)
+	@echo "Checking library..."
+	@$(R_HOME)/bin/Rscript -e "dyn.load('$(TARGET)'); cat('Library loads successfully\n')"
+
+clean:
+	rm -f $(OBJ) $(TARGET)
+
+# Development helpers
+install: $(TARGET)
+	@echo "Copying to galaaz lib directory..."
+	mkdir -p ../../lib/new_bridge
+	cp $(TARGET) ../../lib/new_bridge/

data/ext/new_bridge/galaaz_gatekeeper_phase0.cpp

@@ -0,0 +1,12 @@
+#include <Rcpp.h>
+
+// Phase 0 skeleton: compile via Rcpp::sourceCpp; no socket I/O yet.
+
+// [[Rcpp::export]]
+Rcpp::List galaaz_poll() {
+  return Rcpp::List::create();
+}
+
+// [[Rcpp::export]]
+void galaaz_shutdown() {
+}