c_cpp Rcpp从头开始独特设定（ish）

Posted 2021-05-14

// [[Rcpp::plugins(cpp11)]]
#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
NumericVector cpp_set(NumericVector x) {
  NumericVector out;

  for (auto i: x) {
    auto res = std::find(std::begin(out), std::end(out), i);
    if (res == std::end(out)) {
      out.push_back(i);
    }
  }

  return out;
}

/*** R
r_vector <- c(1, 2, 3, 1, 2, 3)

cpp_set(r_vector)
#> [1] 1 2 3
*/