Fix typos and lint-r issues.

Author: yanboliang

R/pkg/inst/tests/testthat/test_context.R

@@ -182,20 +182,20 @@ test_that("add and get file to be downloaded with Spark job on every node", {
   # Test add directory recursively.
   path <- tempdir()
   dir_name <- basename(path)
-  path1 <- paste0(path, "/hello.txt")
+  path1 <- paste0(path, "/", "hello.txt")
   file.create(path1)
-  sub_path <- paste0(path, "/sub_hello")
+  sub_path <- paste0(path, "/", "sub_hello")
   dir.create(sub_path)
-  path2 <- paste0(sub_path, "/sub_hello.txt")
+  path2 <- paste0(sub_path, "/", "sub_hello.txt")
   file.create(path2)
   words <- "Hello World!"
   sub_words <- "Sub Hello World!"
   writeLines(words, path1)
   writeLines(sub_words, path2)
   spark.addFile(path, recursive = TRUE)
-  download_path1 = spark.getSparkFiles(paste0(dir_name, "/hello.txt"))
+  download_path1 <- spark.getSparkFiles(paste0(dir_name, "/", "hello.txt"))
   expect_equal(readLines(download_path1), words)
-  download_path2 = spark.getSparkFiles(paste0(dir_name, "/sub_hello/sub_hello.txt"))
+  download_path2 <- spark.getSparkFiles(paste0(dir_name, "/", "sub_hello/sub_hello.txt"))
   expect_equal(readLines(download_path2), sub_words)
   unlink(path, recursive = TRUE)
   sparkR.session.stop()