Method operator()

inst/include/Rcpp/protection/Shelter.h:28–31

        Shelter() : nprotected(0) {}

        inline SEXP operator()(SEXP x) {
            if (x != R_NilValue) nprotected++;
            return Rcpp_protect(x);
        }

        ~Shelter(){
            Rcpp_unprotect(nprotected);