diff --git a/R-package/R/xgb.cv.R b/R-package/R/xgb.cv.R
index 7256980c6..eb14b2e1e 100644
--- a/R-package/R/xgb.cv.R
+++ b/R-package/R/xgb.cv.R
@@ -114,6 +114,6 @@ xgb.cv <- function(params=list(), data, nrounds, nfold, label = NULL, missing =
   dt <- read.table(text = "", colClasses = type, col.names = colnames) %>% as.data.table
   split = str_split(string = history, pattern = "\t")
   
-  for(line in split) dt <- line[2:length(line)] %>% str_extract_all(pattern = "\\d.\\d*") %>% unlist %>% as.list %>% {vec <- .; rbindlist(list(dt, vec), use.names = F, fill = F)}
+  for(line in split) dt <- line[2:length(line)] %>% str_extract_all(pattern = "\\d*\\.*\\d*") %>% unlist %>% as.list %>% {vec <- .; rbindlist(list(dt, vec), use.names = F, fill = F)}
   dt
 }
\ No newline at end of file