Add interrupts

Ironholds · Jan 26, 2018 · efd428a · efd428a
1 parent bc0498a
commit efd428a
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/splitters.cpp b/src/splitters.cpp
@@ -47,6 +47,10 @@ DataFrame internal_split_clf(CharacterVector requests){
 
   for(unsigned int i = 0; i < input_length; i++){
 
+    if((i % 10000) == 0){
+      Rcpp::checkUserInterrupt();
+    }
+
     // Handle the case where the input is an NA
     if(requests[i] == NA_STRING){
 
@@ -81,6 +85,10 @@ DataFrame internal_split_squid(CharacterVector requests){
 
   for(unsigned int i = 0; i < input_length; i++){
 
+    if((i % 10000) == 0){
+      Rcpp::checkUserInterrupt();
+    }
+
     // Handle the case where the input is an NA
     if(requests[i] == NA_STRING){