closes #946 and #947 (#948)

fix typos in callback.R and lgb.cv.R, closing #946 and #947

R-package/R/callback.R

@@ -132,7 +132,7 @@ merge.eval.string <- function(env) {
   msg <- list(sprintf("[%d]:", env$iteration))
   
   # Set if evaluation error
-  is_eval_error <- length(env$eval_err_list) > 0
+  is_eval_err <- length(env$eval_err_list) > 0
   
   # Loop through evaluation list
   for (j in seq_along(env$eval_list)) {

R-package/R/lgb.cv.R

@@ -217,7 +217,7 @@ lgb.cv <- function(params = list(),
   
   # Check for early stopping passed as parameter when adding early stopping callback
   early_stop <- c("early_stopping_round", "early_stopping_rounds", "early_stopping")
-  if (any(names(params) %in% eary_stop)) {
+  if (any(names(params) %in% early_stop)) {
     if (params[[which(names(params) %in% early_stop)[1]]] > 0) {
       callbacks <- add.cb(callbacks, cb.early.stop(params[[which(names(params) %in% early_stop)[1]]], verbose = verbose))
     }