Возникновение исключений в Rcpp

Я пытаюсь сообщить об ошибках из мой код rcpp. Я использую исключение конструктора (const char * message_, const char * file, int line) из http://dirk.eddelbuettel.com/code/rcpp/html/classRcpp_1_1exception.html . Чтобы изолировать проблему, я написал следующий bar.cpp :

#include 

RcppExport SEXP bar( SEXP x){
        throw(Rcpp::exception("My Error Message","bar.cpp",4));
        return x ;
}

Когда я запускаю его в R, я получаю следующее:

> dyn.load("bar.so")
> is.loaded("bar")
[1] TRUE
> .Call("bar",12)
Error: SET_VECTOR_ELT() can only be applied to a 'list', not a 'NULL'
>