Module: RObj
- Defined in:
- lib/R4rb/robj.rb
Class Method Summary collapse
- .<(rcode) ⇒ Object
- .<<(rcode) ⇒ Object
- .class(rname) ⇒ Object
- .exist?(rname) ⇒ Boolean
-
.make(rcode, first = true) ⇒ Object
temporary R object saved in ruby object!.
- .mode(rcode) ⇒ Object
Class Method Details
.<(rcode) ⇒ Object
4 5 6 |
# File 'lib/R4rb/robj.rb', line 4 def RObj.<(rcode) return (R2rb < rcode) end |
.<<(rcode) ⇒ Object
38 39 40 |
# File 'lib/R4rb/robj.rb', line 38 def RObj.<<(rcode) RObj.make(rcode) end |
.class(rname) ⇒ Object
8 9 10 |
# File 'lib/R4rb/robj.rb', line 8 def RObj.class(rname) RObj < "class(#{rname})" end |
.exist?(rname) ⇒ Boolean
42 43 44 |
# File 'lib/R4rb/robj.rb', line 42 def RObj.exist?(rname) RObj < "exists(\"#{rname}\")" end |
.make(rcode, first = true) ⇒ Object
temporary R object saved in ruby object!
17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
# File 'lib/R4rb/robj.rb', line 17 def RObj.make(rcode,first=true) mode=RObj.mode(rcode) RObj < ".tmpRObj<-(#{rcode})" if first code=(first ? ".tmpRObj" : rcode.dup) if ['numeric','logical','complex','character'].include?(mode) #if RObj.class(code)=="matrix" return (RObj< rcode) elsif mode=="list" robj={} tmpNames=RObj < "names(#{rcode})" tmpNames.each_with_index do |nam,i| key=(nam.empty? ? i : nam) rkey=(nam.empty? ? i : "\""+nam+"\"") robj[key]=RObj.make("#{rcode}[[#{rkey}]]",false) end return robj else return nil end end |