Function collect_vector 

fn collect_vector<T, U>(
    sexptype: SEXPTYPE,
    data: impl Fn(SEXP) -> *mut U,
    iter: impl Iterator<Item = T>,
    convert: impl Fn(T) -> U,
) -> Robj