allow scores keep argument to be a list

tagteam · Aug 21, 2024 · 06d1a6b · 06d1a6b
1 parent 45e99c1
commit 06d1a6b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/Score.R b/R/Score.R
@@ -786,7 +786,7 @@ c.f., Chapter 7, Section 5 in Gerds & Kattan 2021. Medical risk prediction model
     }
     # }}}
     # {{{ resolve keep statements
-    if (!missing(keep) && is.character(keep)){
+    if (!missing(keep) && is.character(unlist(keep))){
         if("residuals" %in% tolower(keep)) keep.residuals=TRUE else keep.residuals = FALSE
         if("vcov" %in% tolower(keep)) keep.vcov=TRUE else keep.vcov = FALSE
         if ("splitindex" %in% tolower(keep)) keep.splitindex=TRUE else keep.splitindex = FALSE
@@ -1472,6 +1472,7 @@ c.f., Chapter 7, Section 5 in Gerds & Kattan 2021. Medical risk prediction model
             if (keep.residuals[[1]]==FALSE && split.method$name[[1]]=="LeaveOneOutBoot"){
                 crossvalPerf$Brier$Residuals <- NULL
             }
+            browser()
             if (cens.type=="rightCensored")
                 crossvalPerf[["Calibration"]]$plotframe <- merge(jack,crossvalPerf[["Calibration"]]$plotframe,by=c("riskRegression_ID","times"))
         }