R4rb 1.0.0

data/lib/Rserve.rb

@@ -0,0 +1,8 @@
+# pure ruby file
+# loading ruby files
+require 'R4rb/R2rb_init'
+require 'R4rb/R2rb_eval'
+require 'R4rb/robj'
+require 'R4rb/Rserve'
+require 'R4rb/converter'
+require 'R4rb/R4rb'

data/script/README

@@ -0,0 +1,5 @@
+To install locally RServ:
+
+./install_Rserv
+
+scp Rserv cqls@sagag7.upmf-grenoble.fr:bin:

data/script/Rserv

@@ -0,0 +1,39 @@
+#!/bin/bash
+## Rmk: IMPORTANT, $0 does not have the same name as the binary Rserve!!!
+
+pid=`pgrep -x Rserve` #`ps -C Rserve -o pid=`
+
+#echo "<<$pid>>"
+
+
+rservePath=`Rscript -e "cat(system.file(\"libs\",version[[\"arch\"]],\"Rserve\",package=\"Rserve\"))"`
+
+if [ "$rservePath" == "" ]; then
+	rservePath=`Rscript -e "cat(system.file(\"Rserve\",package=\"Rserve\"))"`
+fi
+
+case $1 in
+status)
+	if [ "$pid" = "" ]; then
+		echo "Rserv is NOT running!"
+	else
+		echo "Rserv is running!"
+	fi
+	;;
+start)
+	if [ "$pid" = "" ]; then
+		R CMD $rservePath
+		##echo "Rserv started!"
+	else
+		echo "Rserv already started!"
+	fi
+	;;
+stop)
+	if [ "$pid" = "" ]; then
+		echo "Rserv already stopped!"
+	else
+		kill $pid 
+		echo "Rserv stopped!"
+	fi
+	;;
+esac

data/script/install_Rserv

@@ -0,0 +1,8 @@
+#!/bin/bash
+dir=`dirname $0`
+realpath() {
+  ruby -e "puts File.expand_path \"$1\""
+}
+dir=`realpath $dir`
+echo "$dir"
+ln -sf $dir/Rserv ~/bin/Rserv

data/test/R4rbRserve.rb

@@ -0,0 +1,30 @@
+module Test
+	def test
+		"test1: #{self}"
+	end
+end
+
+module Test2
+	def test
+		"test2: #{self}"
+	end
+end
+
+#Test2=Test unless Module.constants.include? "Test2" 
+
+#def update_class(test)
+
+class String
+
+	include Test
+
+	def String.modeR=(rmode)
+		load_module(Test) if rmode==1
+		load_module(Test2) if rmode==2
+	end
+
+	def to_R
+		self.test
+	end
+
+end

data/test/compR4rbRserve.rb

@@ -0,0 +1,2 @@
+require File.join(File.dirname(__FILE__),'../lib/R4rb')
+

data/test/test.rb

@@ -0,0 +1,89 @@
+require "R4rb"
+
+R4rb.init
+
+### without argument the default mode is R2rb
+### with 1 arguments, it is updated to Rserve 
+### with 2 arguments, it is then updated to R2rb 
+
+if ARGV.length==1
+	R4rb_is Rserve
+	Rserve.init
+	Rserve.client(:toto) 
+end
+
+if ARGV.length==2
+	R4rb_is R2rb 
+end
+
+R4rb.eval <<-CodeR
+require(ctest)
+a<-c(1.1+2i,2)
+print('titi')
+print('tata')
+b<-rnorm(10)
+a=as.integer(c(1,2,1,4))
+print(mode(a))
+e<-list(a=c(1,3,2))
+# bug!!!
+for(i in 1:10) {
+print(i)
+  }
+CodeR
+
+rvect=R4rb::RVector.new "a"
+p rvect
+## the 3 are aliases!
+p rvect.get 
+p rvect.value
+p rvect.value.to_a
+## extract the first element
+p rvect[0]
+## connection between a ruby Array and an R vector! In fact the ruby Array is a cache!
+## No more creation of ruby Array is necessary! 
+a=[]
+rvect > a
+puts "content of a (after 'rvect > a')";p a;p a.object_id
+#print (rvect << "a").class,"\n"
+rvect << "as.integer(e[[1]])" > a
+puts "content of a (after 'rvect << \"e[[1]]\" > a')";p a;p a.object_id
+print rvect.name,"=",a.inspect,"\n"
+print "length(",rvect.name,")=",rvect.length,"\n"
+print rvect.name,"[0] is of class ",a[0].class,"\n"
+rvect << :b
+print rvect.name,"=",rvect.get.inspect,"\n"
+print "length(",rvect.name,")=",rvect.length,"\n"
+rvect << :a #> a
+print rvect.name,"=",rvect.to_a.inspect,"\n"
+print "length(",rvect.name,")=",rvect.length,"\n"
+print rvect.name,"[2]=",rvect[2],"\n"
+#rvect.set [true,false,false]
+rvect << "x<-seq(-3,3,l=10)" > a
+p a
+rvect << "dnorm(x)" > a
+p a
+rvect << "e$a"
+rvect < [true,false,false]
+# could be used with affectation symbol
+p rvect.value
+rvect.value =  rvect.value + [true,false,true]
+R4rb.eval <<-CodeR
+print(e$a)
+print(length(e$a))
+CodeR
+print rvect.name,"=",rvect.to_a.inspect,"\n"
+print "length(",rvect.name,")=",rvect.length,"\n"
+print rvect.name,"=",rvect.to_a.inspect,"\n"
+print rvect.name,"[2]=",rvect[2],"\n"
+
+#with argument (used in dyndoc and notably in parser)
+rvect.arg="[2]"
+print rvect.get_with_arg,"\n"
+rvect << :e
+rvect.arg="$a"
+p rvect.get_with_arg
+rvect.arg="$a[2]"
+p rvect.get_with_arg
+rvect.value_with_arg="toto"
+rvect.arg="$a"
+p rvect.value_with_arg

data/test/testArray.rb

@@ -0,0 +1,27 @@
+require 'R4rb'
+
+Array.initR
+
+### without argument the default mode is R2rb
+### with 1 arguments, it is updated to Rserve 
+### with 2 arguments, it is then updated to R2rb 
+
+if ARGV.length==1
+	R4rb_is Rserve
+	Rserve.init
+	Rserve.client(:toto) 
+	puts "init cli";p Rserve.cli
+end
+
+if ARGV.length==2
+	R4rb_is R2rb 
+end
+
+puts "calcul de runif(10)"
+a=[] < 'runif(10)'
+p a
+a.map!{|e| e*2}
+
+a > 'b'
+
+p 'b'.to_R

data/test/testBuffer.rb

@@ -0,0 +1,12 @@
+require "R4rb"
+
+rbuf=R4rb::RBuffer.new
+rbuf.init
+rbuf+<<RCode
+print("toto")
+RCode
+print "suite\n"
+rbuf+<<RCode
+print("titi")
+RCode
+rbuf.exec

data/test/testConsole.rb

@@ -0,0 +1,5 @@
+require "R4rb"
+
+rcons=R4rb::RConsole.new
+rcons.init ["--save"]
+rcons.exec

data/test/testR4rb.rb

@@ -0,0 +1,42 @@
+require 'R4rb'
+
+Array.initR
+
+### without argument the default mode is R2rb
+### with 1 arguments, it is updated to Rserve 
+### with 2 arguments, it is then updated to R2rb 
+
+if ARGV.length==1
+	R4rb_is Rserve
+	Rserve.init
+	Rserve.client(:toto) 
+	puts "init cli";p Rserve.cli
+end
+
+if ARGV.length==2
+	R4rb_is R2rb 
+end
+
+##
+
+R4rb_status?
+
+p R2rb.parse  "rnorm(toto"
+
+p R2rb.parse 'RSeval(toto,evalq({{
+#Sys.sleep(10)
+aaa2 <- "toto"
+}},.GlobalEnv$.env4dyn$linuxR))'
+
+
+
+$out=[]
+p $out.object_id
+
+p R4rb << "rnorm(10)"
+
+p R4rb <<  ".output<<-capture.output({capabilities()\n\n})"
+
+p ($out < '.output' )
+
+#p ".output".to_R

data/test/testRVect.rb

@@ -0,0 +1,18 @@
+require File.join(File.dirname(__FILE__),'../lib/R4rb')
+
+Array.initR
+
+
+## Assignment from ruby to R
+R4rb::RVector.assign("a",[1,2,3])
+
+"print(a)".to_R
+
+[1,4,3].to_R(:b) #R4rb::RVector.assign("b",[1,4,3])
+
+"print(b)".R4rb #instead of to_R
+
+## Assignment from R to ruby
+a="3:1".evalR #instead of to_R
+
+p a

data/test/testRserve.rb

@@ -0,0 +1,90 @@
+require File.join(File.dirname(__FILE__),'../lib/R4rb')
+
+## The R server needs to be initialized first outside this test!
+Rserve.client(:toto)
+
+Rserve < "aaa<-1"
+
+Rserve < "aaa"
+
+"aaa".Rserve
+
+Rserve.client(:titi)
+
+Rserve < "b<-10"
+
+"ls()".Rserve(:toto)
+
+"ls()".Rserve(:titi)
+
+p "ls()".R2rb
+
+Rserve.output <<-CodeR
+a<-c(1.1+2i,2)
+print('titi')
+print('tata')
+b<-rnorm(10)
+a=as.integer(c(1,2,1,4))
+print(mode(a))
+e<-list(a=c(1,3,2))
+# bug!!!
+for(i in 1:10) {
+print(i)
+  }
+CodeR
+
+rvect=Rserve::RVector.new "a"
+p rvect
+"a".Rserve
+## the 3 are aliases!
+p rvect.get 
+p rvect.value
+p rvect.to_a
+## extract the first element
+p rvect[0]
+## connection between a ruby Array and an R vector! In fact the ruby Array is a cache!
+## No more creation of ruby Array is necessary! 
+a=[]
+rvect > a
+puts "content of a (after 'rvect > a')";p a;p a.object_id
+rvect << "e[[1]]" > a
+puts "content of a (after 'rvect << \"e[[1]]\" > a')";p a;p a.object_id
+
+rvect << "a"
+rvect < [true,false,true]
+
+p ".rubyExport".R2rb
+
+Rserve.output <<-CodeR
+print(a)
+print(length(a))
+CodeR
+
+rvect.value =  rvect.value + [true,false,true]
+p ".rubyExport".to_R
+
+Rserve.output <<-CodeR
+print(a)
+print(length(a))
+CodeR
+
+p "ls(all=T)".Rserve
+
+rvect.arg="[2]"
+print rvect.get_with_arg,"\n"
+
+rvect << :e
+rvect.arg="$a"
+p rvect.get_with_arg
+rvect.arg="$a[2]"
+p rvect.get_with_arg
+
+
+rvect.value_with_arg="toto"
+"print(.rubyExport)".R2rb
+rvect.arg="$a"
+Rserve.output <<-CodeR
+print(e)
+print(e$a)
+CodeR
+p rvect.value_with_arg

data/test/test_error.rb

@@ -0,0 +1,32 @@
+require "R4rb"
+
+R4rb.init
+
+if ARGV.length==1
+	R4rb_is Rserve
+	Rserve.init
+	Rserve.client(:toto) 
+end
+
+if ARGV.length==2
+	R4rb_is R2rb 
+end
+
+R4rb.try_eval <<-CodeR
+print(rnorm(10))
+toto
+CodeR
+
+=begin
+if R4rb==Rserve
+	## copy of code for obtaining the same resut as before
+ 	puts (R2rb.output "RSeval(toto,\"capture.output({.result_try_code<- try({print(rnorm(10))\ntoto},silent=TRUE)})\")").join("\n")
+ 	puts R2rb.output("RSeval(toto,\".result_try_code\")")
+
+	#Does not work! No print captured!
+	#puts (R2rb.output "RSeval(toto,\".result_try_code<- try({capture.output({print(rnorm(10))\ntoto})},silent=TRUE)\")")
+	#p R2rb.output("RSeval(toto,\".result_try_code\")")
+end
+=end
+
+puts "ici"

metadata

@@ -0,0 +1,74 @@
+--- !ruby/object:Gem::Specification
+name: R4rb
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- CQLS
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-02-21 00:00:00.000000000 Z
+dependencies: []
+description: |2
+    R is embedded in ruby with some communication support .
+email: rdrouilh@gmail.com
+executables: []
+extensions:
+- ext/R4rb/extconf.rb
+extra_rdoc_files: []
+files:
+- Rakefile
+- R4rb.gemspec
+- ext/R4rb/R4rb.c
+- ext/R4rb/extconf.rb
+- ext/R4rb/MANIFEST
+- lib/R2rb.rb
+- lib/R4rb.rb
+- lib/R4rb/R2rb_eval.rb
+- lib/R4rb/R2rb_init.rb
+- lib/R4rb/R4rb.rb
+- lib/R4rb/Rserve.rb
+- lib/R4rb/converter.rb
+- lib/R4rb/init.rb
+- lib/R4rb/robj.rb
+- lib/Rserve.rb
+- test/R4rbRserve.rb
+- test/compR4rbRserve.rb
+- test/test.rb
+- test/testArray.rb
+- test/testBuffer.rb
+- test/testConsole.rb
+- test/testR4rb.rb
+- test/testRVect.rb
+- test/testRserve.rb
+- test/test_error.rb
+- script/README
+- script/Rserv
+- script/install_Rserv
+homepage: http://cqls.upmf-grenoble.fr
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+- ext/R4rb
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements:
+- none
+rubyforge_project: 
+rubygems_version: 2.0.14
+signing_key: 
+specification_version: 4
+summary: R for ruby
+test_files: []