Move fun.sesp definition out of roc()

This avoids creating a new function in each call of roc(), which causes the function to have different environments each call. Works around LudvigOlsen/cvms#44.

Author: xrobin

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: pROC
 Type: Package
 Title: Display and Analyze ROC Curves
-Version: 1.19.0
-Date: 2025-07-30
+Version: 1.19.0.1
+Date: 2025-07-31
 Encoding: UTF-8
 Depends: R (>= 2.14)
 Imports: methods, Rcpp (>= 0.11.1)

NEWS

@@ -1,3 +1,6 @@
+1.19.0.1 (2025-07-31)
+  * Move 'fun.sesp' definition to work around LudvigOlsen/cvms#44
+
 1.19.0 (2025-07-30)
   * 'ci.coords' can now take the same 'input' values as 'coords' (issue #90)
   * 'ci.coords' can be 'plot'ted

R/roc.R

@@ -450,10 +450,7 @@ roc_cc_nochecks <- function(controls, cases, percent, direction, smooth, smooth.
   roc$direction <- direction
   roc$cases <- cases
   roc$controls <- controls
-  roc$fun.sesp <- function(...) {
-    warning("pROC::roc$fun.sesp is deprecated")
-    roc_utils_perfs_all(...)
-  }
+  roc$fun.sesp <- roc_utils_fun_sesp
 
   if (smooth) {
     roc <- smooth.roc(roc, method = smooth.method, n = smooth.n, ...)

R/roc.utils.R

@@ -54,6 +54,11 @@ roc_utils_perfs_all <- function(thresholds, controls, cases, direction) {
   return(list(se = se, sp = sp))
 }
 
+roc_utils_fun_sesp <- function(...) {
+  warning("pROC::roc$fun.sesp is deprecated")
+  roc_utils_perfs_all(...)
+}
+
 # returns a vector with two elements, sensitivity and specificity, given the threshold at which to evaluate the performance, the values of controls and cases and the direction of the comparison, a character '>' or '<' as controls CMP cases
 # sp <- roc_utils_perfs(...)[1,]
 # se <- roc_utils_perfs(...)[2,]