| 75 | namespace internal { |
| 76 | template <typename Class> |
| 77 | SEXP make_new_object( Class* ptr ){ |
| 78 | Rcpp::XPtr<Class> xp( ptr, true ) ; |
| 79 | Function maker = Environment::Rcpp_namespace()[ "cpp_object_maker"] ; |
| 80 | return maker( typeid(Class).name() , xp ) ; |
| 81 | } |
| 82 | } |
| 83 | |
| 84 | } |
nothing calls this directly
no test coverage detected