[R-package] simplified lgb.check.eval() (#2654)

R-package/R/utils.R

@@ -246,18 +246,10 @@ lgb.check.eval <- function(params, eval) {
     params$metric <- list()
   }
 
-  # Check if evaluation metric is null, if not then append it
-  if (!is.null(eval)) {
-
-    # Append metric if character or list
+  # If 'eval' is a list or character vector, store it in 'metric'
   if (is.character(eval) || is.list(eval)) {
-
-      # Append metrics
     params$metric <- append(params$metric, eval)
-
   }
 
-  }
-  # Return parameters
   return(params)
 }