Hendrik/xgboost
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

check r

Browse Source
This commit is contained in:
tqchen 2015-03-13 23:49:56 -07:00
parent 2159d18f0b
commit 8386c2b7fa
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R-package/src/xgboost_R.cpp
View File

@ -293,7 +293,9 @@ extern "C" {
const char *raw = XGBoosterGetModelRaw(R_ExternalPtrAddr(handle), &olen); const char *raw = XGBoosterGetModelRaw(R_ExternalPtrAddr(handle), &olen);
_WrapperEnd(); _WrapperEnd();
SEXP ret = PROTECT(allocVector(RAWSXP, olen)); SEXP ret = PROTECT(allocVector(RAWSXP, olen));
memcpy(RAW(ret), raw, olen); if (olen != 0) {
memcpy(RAW(ret), raw, olen);
}
UNPROTECT(1); UNPROTECT(1);
return ret; return ret;
} }