Replaced Rf_errorwith Rcpp::stop

schuemie · schuemie · commit b640fab07046 · 2026-03-02T11:50:34.000+01:00
diff --git a/src/RcppWrapper.cpp b/src/RcppWrapper.cpp
@@ -46,7 +46,7 @@ DataFrame matchPsInternal(std::vector<double> propensityScores, std::vector<int>
 	} catch (std::exception &e) {
 		forward_exception_to_r(e);
 	} catch (...) {
-		::Rf_error("c++ exception (unknown reason)");
+		Rcpp::stop("c++ exception (unknown reason)");
 	}
 	return DataFrame::create();
 }
@@ -62,7 +62,7 @@ std::vector<double> aucWithCi(std::vector<double> propensityScores, std::vector<
 	} catch (std::exception &e) {
 		forward_exception_to_r(e);
 	} catch (...) {
-		::Rf_error("c++ exception (unknown reason)");
+		Rcpp::stop("c++ exception (unknown reason)");
 	}
   std::vector<double> auc(3,0);
 	return auc;
@@ -79,7 +79,7 @@ double aucWithoutCi(std::vector<double> propensityScores, std::vector<int> treat
 	} catch (std::exception &e) {
 		forward_exception_to_r(e);
 	} catch (...) {
-		::Rf_error("c++ exception (unknown reason)");
+	  Rcpp::stop("c++ exception (unknown reason)");
 	}
 	return 0.0;
 }
@@ -104,7 +104,7 @@ DataFrame adjustedKm(const std::vector<double> &weight, const std::vector<int> &
   } catch (std::exception &e) {
     forward_exception_to_r(e);
   } catch (...) {
-    ::Rf_error("c++ exception (unknown reason)");
+    Rcpp::stop("c++ exception (unknown reason)");
   }
   return DataFrame::create();
 }

Original file line number	Diff line number	Diff line change
`@@ -46,7 +46,7 @@ DataFrame matchPsInternal(std::vector<double> propensityScores, std::vector<int>`
`46`	`46`	`} catch (std::exception &e) {`
`47`	`47`	`forward_exception_to_r(e);`
`48`	`48`	`} catch (...) {`
`49`		`- ::Rf_error("c++ exception (unknown reason)");`
	`49`	`+ Rcpp::stop("c++ exception (unknown reason)");`
`50`	`50`	`}`
`51`	`51`	`return DataFrame::create();`
`52`	`52`	`}`
`@@ -62,7 +62,7 @@ std::vector<double> aucWithCi(std::vector<double> propensityScores, std::vector<`
`62`	`62`	`} catch (std::exception &e) {`
`63`	`63`	`forward_exception_to_r(e);`
`64`	`64`	`} catch (...) {`
`65`		`- ::Rf_error("c++ exception (unknown reason)");`
	`65`	`+ Rcpp::stop("c++ exception (unknown reason)");`
`66`	`66`	`}`
`67`	`67`	`std::vector<double> auc(3,0);`
`68`	`68`	`return auc;`
`@@ -79,7 +79,7 @@ double aucWithoutCi(std::vector<double> propensityScores, std::vector<int> treat`
`79`	`79`	`} catch (std::exception &e) {`
`80`	`80`	`forward_exception_to_r(e);`
`81`	`81`	`} catch (...) {`
`82`		`- ::Rf_error("c++ exception (unknown reason)");`
	`82`	`+ Rcpp::stop("c++ exception (unknown reason)");`
`83`	`83`	`}`
`84`	`84`	`return 0.0;`
`85`	`85`	`}`
`@@ -104,7 +104,7 @@ DataFrame adjustedKm(const std::vector<double> &weight, const std::vector<int> &`
`104`	`104`	`} catch (std::exception &e) {`
`105`	`105`	`forward_exception_to_r(e);`
`106`	`106`	`} catch (...) {`
`107`		`- ::Rf_error("c++ exception (unknown reason)");`
	`107`	`+ Rcpp::stop("c++ exception (unknown reason)");`
`108`	`108`	`}`
`109`	`109`	`return DataFrame::create();`
`110`	`110`	`}`