R delete an old trace statement

This commit is contained in:
Richard Beare 2016-04-19 14:41:26 +10:00
commit 3f75b2917d

View file

@ -544,8 +544,7 @@
struct traits_asptr < std::vector<T> > { struct traits_asptr < std::vector<T> > {
static int asptr(SEXP obj, std::vector<T> **val) { static int asptr(SEXP obj, std::vector<T> **val) {
std::vector<T> *p; std::vector<T> *p;
Rprintf("my asptr\n"); int res = SWIG_R_ConvertPtr(obj, (void**)&p, type_info< std::vector<T> >(), 0);
int res = SWIG_R_ConvertPtr(obj, (void**)&p, type_info< std::vector<T> >(), 0);
if (SWIG_IsOK(res)) { if (SWIG_IsOK(res)) {
if (val) *val = p; if (val) *val = p;
} }