remove obsolete C++ function

NAMESPACE

@@ -30,7 +30,6 @@ S3method(pecs,list)
 S3method(plot,LearnerSurv)
 S3method(plot,TaskDens)
 S3method(plot,TaskSurv)
-export(.c_get_unique_times)
 export(.c_weight_survival_score)
 export(.surv_return)
 export(LearnerDens)

R/RcppExports.R

@@ -5,10 +5,6 @@ c_assert_surv <- function(mat) {
  .Call(`_mlr3proba_c_assert_surv`, mat)
 }
 
-.c_get_unique_times <- function(true_times, req_times) {
- .Call(`_mlr3proba_c_get_unique_times`, true_times, req_times)
-}
-
 c_score_intslogloss <- function(truth, unique_times, cdf, eps) {
  .Call(`_mlr3proba_c_score_intslogloss`, truth, unique_times, cdf, eps)
 }

R/zzz.R

@@ -13,11 +13,6 @@ NULL
 #' @export
 NULL
 
-#' @name .c_get_unique_times
-#' @rdname cpp
-#' @export
-NULL
-
 # nolint start
 #' @import checkmate
 #' @import data.table

src/RcppExports.cpp

@@ -21,18 +21,6 @@ BEGIN_RCPP
  return rcpp_result_gen;
 END_RCPP
 }
-// c_get_unique_times
-NumericVector c_get_unique_times(NumericVector true_times, NumericVector req_times);
-RcppExport SEXP _mlr3proba_c_get_unique_times(SEXP true_timesSEXP, SEXP req_timesSEXP) {
-BEGIN_RCPP
- Rcpp::RObject rcpp_result_gen;
- Rcpp::RNGScope rcpp_rngScope_gen;
- Rcpp::traits::input_parameter< NumericVector >::type true_times(true_timesSEXP);
- Rcpp::traits::input_parameter< NumericVector >::type req_times(req_timesSEXP);
- rcpp_result_gen = Rcpp::wrap(c_get_unique_times(true_times, req_times));
- return rcpp_result_gen;
-END_RCPP
-}
 // c_score_intslogloss
 NumericMatrix c_score_intslogloss(const NumericVector& truth, const NumericVector& unique_times, const NumericMatrix& cdf, double eps);
 RcppExport SEXP _mlr3proba_c_score_intslogloss(SEXP truthSEXP, SEXP unique_timesSEXP, SEXP cdfSEXP, SEXP epsSEXP) {
@@ -110,7 +98,6 @@ END_RCPP
 
 static const R_CallMethodDef CallEntries[] = {
  {"_mlr3proba_c_assert_surv", (DL_FUNC) &_mlr3proba_c_assert_surv, 1},
- {"_mlr3proba_c_get_unique_times", (DL_FUNC) &_mlr3proba_c_get_unique_times, 2},
  {"_mlr3proba_c_score_intslogloss", (DL_FUNC) &_mlr3proba_c_score_intslogloss, 4},
  {"_mlr3proba_c_score_graf_schmid", (DL_FUNC) &_mlr3proba_c_score_graf_schmid, 4},
  {"_mlr3proba_c_weight_survival_score", (DL_FUNC) &_mlr3proba_c_weight_survival_score, 6},

src/survival_scores.cpp

@@ -3,47 +3,6 @@
 using namespace Rcpp;
 using namespace std;
 
-// This function essentially finds and returns the subset of `true_times` that
-// align with the requested times (`req_times`), after cleaning up the invalid
-// `req_times` (outside of the `true_times` range or duplicate consecutive elements)
-// [[Rcpp::export(.c_get_unique_times)]]
-NumericVector c_get_unique_times(NumericVector true_times, NumericVector req_times) {
- if (req_times.length() == 0) {
- return sort_unique(true_times);
- }
-
- std::sort(true_times.begin(), true_times.end());
- std::sort(req_times.begin(), req_times.end());
-
- double mintime = true_times(0);
- double maxtime = true_times(true_times.length() - 1);
-
- for (int i = 0; i < req_times.length(); i++) {
- if (req_times[i] < mintime || req_times[i] > maxtime || ((i > 1) && req_times[i] == req_times[i - 1])) {
- req_times.erase(i);
- i--;
- }
- }
-
- if (req_times.length() == 0) {
- Rcpp::stop("Requested times are all outside the observed range.");
- }
- for (int i = 0; i < true_times.length(); i++) {
- for (int j = 0; j < req_times.length(); j++) {
- if (true_times[i] <= req_times[j] &&
- (i == true_times.length() - 1 || true_times[i + 1] > req_times[j])) {
- break;
- } else if (j == req_times.length() - 1) {
- true_times.erase(i);
- i--;
- break;
- }
- }
- }
-
- return true_times;
-}
-
 // [[Rcpp::export]]
 NumericMatrix c_score_intslogloss(const NumericVector& truth,
  const NumericVector& unique_times,