如何检查R Studio是否连接到Hive

Question

我创建了一个R函数来连接R和Hive。

我需要创建一个测试来验证它们之间的连接。

function (java.size, user = Sys.info()["user"], password = getPass::getPass(msg = "Hive password")) 
{
    options(java.parameters = paste0("-Xmx", java.size, "g"))
    print(paste("java.parameters :", getOption("java.parameters")))
    cp = c("hive-jdbc.jar", "hadoop-common.jar")
    .jinit(classpath = cp)
    drv <- JDBC("jdbc.HiveDriver", "/opt/hive-jdbc.jar", 
        identifier.quote = "`")
    conn <- DBI::dbConnect(drv, "host", 
        user, password)
    conn
}

如何使用R测试来测试R和Hive之间的连接。