From 5648bec8a3d95dd107441e01ac3df9eb255d07b3 Mon Sep 17 00:00:00 2001
From: Tong He <hetong007@gmail.com>
Date: Fri, 20 Mar 2015 22:41:47 -0700
Subject: [PATCH] Update utils.R

---
 R-package/R/utils.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R-package/R/utils.R b/R-package/R/utils.R
index e31111955..9674ae9be 100644
--- a/R-package/R/utils.R
+++ b/R-package/R/utils.R
@@ -193,7 +193,8 @@ xgb.iter.eval <- function(booster, watchlist, iter, feval = NULL, prediction = F
         if (length(names(w)) == 0) {
           stop("xgb.eval: name tag must be presented for every elements in watchlist")
         }
-        ret <- feval(predict(booster, w[[1]]), w[[1]])
+        preds <- predict(booster, w[[1]])
+        ret <- feval(preds, w[[1]])
         msg <- paste(msg, "\t", names(w), "-", ret$metric, ":", ret$value, sep="")
       }
     }