From 0f3bd0ca25e9cabb1e4d9656958cd3a34ee000cf Mon Sep 17 00:00:00 2001
From: Matthew Fidler <matthew.fidler@gmail.com>
Date: Wed, 28 Aug 2024 05:27:49 -0500
Subject: [PATCH] Add RCPP wraping to handle any possible errors

---
 src/et.cpp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/et.cpp b/src/et.cpp
index 5756ef7ee..f00ebe34d 100644
--- a/src/et.cpp
+++ b/src/et.cpp
@@ -49,6 +49,7 @@ extern "C" SEXP getForder(void);
 extern "C" int useForder(void);
 
 extern "C" SEXP orderForderS1(SEXP ordIn) {
+BEGIN_RCPP
   Function order = getForder();
   IntegerVector ord;
   if (useForder()){
@@ -60,6 +61,7 @@ extern "C" SEXP orderForderS1(SEXP ordIn) {
                 _["method"]="radix");
   }
   return wrap(ord);
+END_RCPP
 }