summary.ncvreg(): Fixed #51

pbreheny · Mar 9, 2025 · 2fc1d6b · 2fc1d6b
1 parent 7e0cf15
commit 2fc1d6b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/summary-ncvreg.R b/R/summary-ncvreg.R
@@ -118,7 +118,8 @@ summary.ncvreg <- function(object, lambda, which, number, cutoff, sort=TRUE, sig
 
 print.summary.ncvreg <- function(x, digits, ...) {
   digits <- if (missing(digits)) digits <- c(4, 2, 2, 3) else rep(digits, length.out=5)
-  if ((sys.nframe() >= 2) && (as.character(sys.call(2))[1] == "print.summary.cv.ncvreg")) {
+  caller <- sys.function(sys.parent())
+  if (!is.null(caller) && identical(caller, print.summary.cv.ncvreg)) {
     skip_intro <- TRUE
   } else {
     skip_intro <- FALSE