update doc, resolve warnings

R-package/R/xgb.save.raw.R

@@ -17,12 +17,12 @@
 #' pred <- predict(bst, test$data)
 #' @export
 #' 
-xgb.save.raw <- function(handle) {
-  if (class(handle) == "xgb.Booster"){
-    handle <- handle$handle
+xgb.save.raw <- function(model) {
+  if (class(model) == "xgb.Booster"){
+    model <- model$handle
   }
-  if (class(handle) == "xgb.Booster.handle") {
-    raw <- .Call("XGBoosterModelToRaw_R", handle, PACKAGE = "xgboost")
+  if (class(model) == "xgb.Booster.handle") {
+    raw <- .Call("XGBoosterModelToRaw_R", model, PACKAGE = "xgboost")
     return(raw)
   }
   stop("xgb.raw: the input must be xgb.Booster.handle. Use xgb.DMatrix.save to save