测试具有时间限制的RJDBC连接

Question

如何测试RJDBC连接是否有效？有时间限制？

这是一个玩具代码：

library("RJDBC")

testConnection <- function(){
  tryCatch({
    conn <- RJDBC::dbConnect(JDBC("com.mysql.jdbc.Driver", "driverPath"), "connString", "user", "password")
    dbDisconnect(conn)
    return("Connection: OK")
  }
  , error = function(e)  {
    return("Connection: Failed")
  }
  )
}

testConnection()

但如果没有网络连接，我必须等待30秒才能获得结果。

我需要测试很多连接，所以我想将测试限制更改为2秒。 如何设置评估时间限制？

我试了setTimeLimit但没有成功。