fix hive context test failure more

Author: felixcheung

R/pkg/R/SQLContext.R

@@ -752,6 +752,7 @@ createExternalTable <- function(x, ...) {
 #' df2 <- read.jdbc(jdbcUrl, "table2", partitionColumn = "index", lowerBound = 0,
 #'                  upperBound = 10000, user = "username", password = "password")
 #' }
+#' @note since 2.0.0
 
 read.jdbc <- function(url, tableName,
                       partitionColumn = NULL, lowerBound = NULL, upperBound = NULL,

R/pkg/inst/tests/test_mllib.R

@@ -177,6 +177,7 @@ test_that("create DataFrame from RDD", {
                c(16))
   expect_equal(collect(sql("SELECT height from people WHERE name ='Bob'"))$height,
                c(176.5))
+  remove(".sparkRHivesc", envir = .sparkREnv)
 })
 
 test_that("convert NAs to null type in DataFrames", {
@@ -988,6 +989,7 @@ test_that("test HiveContext", {
   expect_is(df5, "SparkDataFrame")
   expect_equal(count(df5), 3)
   unlink(parquetDataPath)
+  remove(".sparkRHivesc", envir = .sparkREnv)
 })
 
 test_that("column operators", {
@@ -2168,6 +2170,7 @@ test_that("Window functions on a DataFrame", {
   result <- collect(select(df, over(lead("key", 1), ws), over(lead("value", 1), ws)))
   names(result) <- c("key", "value")
   expect_equal(result, expected)
+  remove(".sparkRHivesc", envir = .sparkREnv)
 })
 
 test_that("createDataFrame sqlContext parameter backward compatibility", {