1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
use crate::logical::*;
use crate::robj::*;
use libR_sys::*;
use std::ffi::CString;
#[derive(Debug, PartialEq)]
pub struct Symbol<'a>(pub &'a str);
#[derive(Debug, PartialEq)]
pub struct Character<'a>(pub &'a str);
#[derive(Debug, PartialEq)]
pub struct Lang<'a>(pub &'a str);
#[derive(Debug, PartialEq)]
pub struct List<'a>(pub &'a [Robj]);
impl<'a> PartialEq<List<'a>> for Robj {
fn eq(&self, rhs: &List) -> bool {
match self.sexptype() {
VECSXP if self.len() == rhs.0.len() => {
for (l, r) in self.list_iter().unwrap().zip(rhs.0.iter()) {
if !l.eq(r) {
return false;
}
}
true
}
_ => false,
}
}
}
impl<'a> From<List<'a>> for Robj {
fn from(val: List<'a>) -> Self {
unsafe {
let sexp = Rf_allocVector(VECSXP, val.0.len() as R_xlen_t);
R_PreserveObject(sexp);
for i in 0..val.0.len() {
SET_VECTOR_ELT(sexp, i as R_xlen_t, val.0[i].get());
}
Robj::Owned(sexp)
}
}
}
impl<'a> From<&'a [Bool]> for Robj {
fn from(vals: &[Bool]) -> Self {
unsafe {
let len = vals.len();
let sexp = Rf_allocVector(LGLSXP, len as R_xlen_t);
R_PreserveObject(sexp);
let ptr = LOGICAL(sexp);
let slice = std::slice::from_raw_parts_mut(ptr, len);
for (i, &v) in vals.iter().enumerate() {
slice[i] = v.0;
}
Robj::Owned(sexp)
}
}
}
impl<'a> From<Symbol<'a>> for Robj {
fn from(name: Symbol) -> Self {
unsafe {
if let Ok(name) = CString::new(name.0) {
new_owned(Rf_install(name.as_ptr()))
} else {
Robj::from(())
}
}
}
}