lib/rbbt/util/R.rb in rbbt-util-5.14.38 vs lib/rbbt/util/R.rb in rbbt-util-5.14.39

@@ -84,12 +84,16 @@
   end
 
 
   def self.ruby2R(object)
     case object
+    when Float::INFINITY
+      "Inf"
     when nil
       "NULL"
+    when "NA"
+      "NA"
     when TSV
       "matrix(#{R.ruby2R object.values},dimnames=list(#{R.ruby2R object.keys}, #{R.ruby2R object.fields}))"
     when Symbol
       "#{ object }"
     when String
@@ -100,9 +104,11 @@
       "TRUE"
     when FalseClass
       "FALSE"
     when Array
       "c(#{object.collect{|e| ruby2R(e) } * ", "})"
+    when Hash
+      object.collect{|k,v| [k, ruby2R(v)] * "="} * ", "
     else
       raise "Type of object not known: #{ object.inspect }"
     end
   end