You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
544 B
21 lines
544 B
.verify.JDBC.result <- function (result, ...) {
|
|
if (rJava::is.jnull(result)) {
|
|
x <- rJava::.jgetEx(TRUE)
|
|
if (rJava::is.jnull(x))
|
|
stop(...)
|
|
else
|
|
stop(...," (",rJava::.jcall(x, "S", "getMessage"),")")
|
|
}
|
|
}
|
|
|
|
|
|
try_require <- function(package, fun) {
|
|
if (requireNamespace(package, quietly = TRUE)) {
|
|
library(package, character.only = TRUE)
|
|
return(invisible())
|
|
}
|
|
|
|
stop("Package `", package, "` required for `", fun , "`.\n", # nocov start
|
|
"Please install and try again.", call. = FALSE) # nocov end
|
|
}
|
|
|
|
|