How to generate an R warning safely in Rcpp How to generate an R warning safely in Rcpp r r