Fix flaky test R (#9598)

* fix flaky test R * fix flaky test R
apache · Jan 27, 2018 · e465cfa · e465cfa
1 parent ee61078
commit e465cfa
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/R-package/tests/testthat/test_model.R b/R-package/tests/testthat/test_model.R
@@ -172,9 +172,14 @@ test_that("Fine-tune", {
 })                                       
 
 test_that("Matrix Factorization", {
-  GetMovieLens()
-  DF <- read.table("./data/ml-100k/u.data", header = F, sep = "\t")
-  names(DF) <- c("user", "item", "score", "time")
+
+  # Use fake random data instead of GetMovieLens() to remove external dependency
+  set.seed(123)
+  user <- sample(943, size = 100000, replace = T)
+  item <- sample(1682, size = 100000, replace = T)
+  score <- sample(5, size = 100000, replace = T)
+  DF <- data.frame(user, item, score)
+
   max_user <- max(DF$user)
   max_item <- max(DF$item)
   DF_mat_x <- data.matrix(t(DF[, 1:2]))