Removed unused functions.

NAMESPACE

@@ -22,8 +22,6 @@ export(read_codes)
 export(rev_compl)
 export(shift)
 export(split)
-export(test.demo)
-export(test_demo)
 export(truncate)
 export(tsize)
 export(tuples_freq)

src/rust/src/lib.rs

@@ -20,22 +20,10 @@ fn r_all_tuples(n: u16, sigma: Vec<String>) -> Vec<String> {
     tuples::all_tuples(n, &sigma)
 }
 
-// test.demo <- function() .Call(wrap__test_demo)
-// r_name is not yet working. Workaround in R/r_name.R:
-/// @export
-#[extendr(r_name = "test.demo")]
-pub fn test_demo() -> Vec<i32> {
-    let _rv = R!("c(1, 2, 3)").unwrap();
-    // let v : RColumn<&[f64]> = rv.as_vector().unwrap();
-    // let i = v.data()[0];
-    vec![1, 2, 3]
-}
-
 // Macro to generate exports.
 // This ensures exported functions are registered with R.
 // See corresponding C code in `entrypoint.c`.
 extendr_module! {
     mod gcatbase; // like R package name
     fn r_all_tuples;
-    fn test_demo;
 }