Function RcppTable

inst/tinytest/cpp/table.cpp:26–37

[[Rcpp::export]]

// [[Rcpp::export]]
IntegerVector RcppTable(SEXP x) {
  switch (TYPEOF(x)) {
  case INTSXP: return table(as<IntegerVector>(x));
  case REALSXP: return table(as<NumericVector>(x));
  case STRSXP: return table(as<CharacterVector>(x));
  case LGLSXP: return table(as<LogicalVector>(x));
  default: {
    stop("untested SEXP type");
    return R_NilValue;
  }
  }
}