fix compilation on mac

wrapper/R-example/demo.R

@@ -35,7 +35,7 @@ bst <- xgb.train(param, dtrain, nround=2, watchlist=watchlist)
 # make prediction
 preds <- xgb.predict(bst, dtest)
 labels <- xgb.getinfo(dtest, "label")
-err <- as.real(sum(as.integer(preds > 0.5) != labels)) / length(labels)
+err <- as.numeric(sum(as.integer(preds > 0.5) != labels)) / length(labels)
 # print error rate
 print(paste("error=",err))
 
@@ -100,7 +100,7 @@ logregobj <- function(preds, dtrain) {
 # Take this in mind when you use the customization, and maybe you need write customized evaluation function
 evalerror <- function(preds, dtrain) {
   labels <- xgb.getinfo(dtrain, "label")
-  err <- as.real(sum(labels != (preds > 0.0))) / length(labels)
+  err <- as.numeric(sum(labels != (preds > 0.0))) / length(labels)
   return(list(metric="error", value=err))
 }
 

wrapper/xgboost.R

@@ -48,15 +48,15 @@ xgb.setinfo <- function(dmat, name, info) {
     stop("xgb.setinfo: first argument dtrain must be xgb.DMatrix");
   }
   if (name == "label") {
-    .Call("XGDMatrixSetInfo_R", dmat, name, as.real(info))
+    .Call("XGDMatrixSetInfo_R", dmat, name, as.numeric(info))
     return(TRUE)
   }
   if (name == "weight") {
-    .Call("XGDMatrixSetInfo_R", dmat, name, as.real(info))
+    .Call("XGDMatrixSetInfo_R", dmat, name, as.numeric(info))
     return(TRUE)
   }
   if (name == "base_margin") {
-    .Call("XGDMatrixSetInfo_R", dmat, name, as.real(info))
+    .Call("XGDMatrixSetInfo_R", dmat, name, as.numeric(info))
     return(TRUE)
   }
   if (name == "group") {
@@ -214,7 +214,7 @@ xgb.iter.eval <- function(booster, watchlist, iter) {
       if (length(names(w)) == 0) {
         stop("xgb.eval: name tag must be presented for every elements in watchlist")
       }
-      evnames <- append(evnames, names(w))
+      evnames <- append(evnames, names(w))     
     }
   }
   msg <- .Call("XGBoosterEvalOneIter_R", booster, as.integer(iter), watchlist, evnames)

wrapper/xgboost_R.cpp

@@ -165,14 +165,16 @@ extern "C" {
     std::vector<void*> vec_dmats;
     std::vector<std::string> vec_names;
     std::vector<const char*> vec_sptr;
-    for (int i = 0; i < len; ++i){
+    for (int i = 0; i < len; ++i) {
       vec_dmats.push_back(R_ExternalPtrAddr(VECTOR_ELT(dmats, i)));
       vec_names.push_back(std::string(CHAR(asChar(VECTOR_ELT(evnames, i)))));
-      vec_sptr.push_back(vec_names.back().c_str());
+    }
+    for (int i = 0; i < len; ++i) {
+      vec_sptr.push_back(vec_names[i].c_str());
     }
     return mkString(XGBoosterEvalOneIter(R_ExternalPtrAddr(handle),
                                          asInteger(iter),
-                                         &vec_dmats[0], &vec_sptr[0], len)); 
+                                         &vec_dmats[0], &vec_sptr[0], len));
   }
   SEXP XGBoosterPredict_R(SEXP handle, SEXP dmat, SEXP output_margin) {
     size_t olen;

wrapper/xgboost_wrapper.cpp

@@ -225,6 +225,7 @@ extern "C"{
     for (size_t i = 0; i < len; ++i) {
       mats.push_back(static_cast<DataMatrix*>(dmats[i]));
       names.push_back(std::string(evnames[i]));
+      printf("add names: %s\n", names.back().c_str());
     }
     bst->CheckInitModel();
     bst->eval_str = bst->EvalOneIter(iter, mats, names);