fix style

Author: actuaryzhang

R/pkg/inst/tests/testthat/test_mllib_regression.R

@@ -85,9 +85,9 @@ test_that("spark.glm and predict", {
   expect_equal(typeof(take(select(prediction, "prediction"), 1)$prediction), "double")
   vals <- collect(select(prediction, "prediction"))
   rVals <- suppressWarnings(predict(
-    glm(Sepal.Width ~ Sepal.Length + Species, data = iris, 
+    glm(Sepal.Width ~ Sepal.Length + Species, data = iris,
         family = tweedie(var.power = 1.2, link.power = 1.0)), iris))
-  expect_true(all(abs(rVals - vals) < 1e-6), rVals - vals) 
+  expect_true(all(abs(rVals - vals) < 1e-6), rVals - vals)
 
   # Test stats::predict is working
   x <- rnorm(15)