replace apply() with storage.mode() for integer to numeric matrix conversion

utkarshpawade · utkarshpawade · commit 0058fd4a95f0 · 2026-04-06T18:35:16.000+05:30
diff --git a/R/helpers-ppc.R b/R/helpers-ppc.R
@@ -73,12 +73,7 @@ validate_predictions <- function(predictions, n_obs = NULL) {
   }
 
   if (is.integer(predictions)) {
-    if (nrow(predictions) == 1) {
-      predictions[1, ] <- as.numeric(predictions[1,, drop = FALSE])
-    }
-    else {
-      predictions <- apply(predictions, 2, as.numeric)
-    }
+    storage.mode(predictions) <- "numeric"
   }
 
   if (anyNA(predictions)) {

Original file line number	Diff line number	Diff line change
`@@ -73,12 +73,7 @@ validate_predictions <- function(predictions, n_obs = NULL) {`
`73`	`73`	`}`
`74`	`74`
`75`	`75`	`if (is.integer(predictions)) {`
`76`		`- if (nrow(predictions) == 1) {`
`77`		`- predictions[1, ] <- as.numeric(predictions[1,, drop = FALSE])`
`78`		`- }`
`79`		`- else {`
`80`		`- predictions <- apply(predictions, 2, as.numeric)`
`81`		`- }`
	`76`	`+ storage.mode(predictions) <- "numeric"`
`82`	`77`	`}`
`83`	`78`
`84`	`79`	`if (anyNA(predictions)) {`