Print integer vector from Rcpp function

Question

How do I print integer vector from Rcpp function? In my function, I would like to print IntegerVector a. In R I am calling this function using for example compnz_next(5,3,c(1,2,2))

#include <Rcpp.h>

using namespace Rcpp;

// [[Rcpp::export]]
IntegerVector compnz_next(int n, int k, IntegerVector a) {
  bool more = true;
  int i;
  static int h = 0;
  static int t = 0;

  for ( i = 0; i < k; i++ ) {
    a[i] = a[i] - 1;
  }
  if ( 1 < t ) {
    h = 0;
  }

  h = h + 1;
  t = a[h-1];
  a[h-1] = 0;
  a[0] = t - 1;
  a[h] = a[h] + 1;

  more = ( a[k-1] != ( n - k ) );
  Rcout << "a vector is:" << more << std::endl;
  for ( i = 0; i < k; i++ ) {
    a[i] = a[i] + 1;
  }

  return a;
}

Answer 1

Try the following line:

Rf_PrintValue(a);