У меня есть функция, которая ловит ошибки, возникающие в результате odbcQuery
.Как сделать так, чтобы попытка отбросить несуществующие таблицы не вызвала ошибку?
Функция:
runQuery <- function(script, channel, errors = T) {
run <- odbcQuery(channel, script)
# if the function has returned an error
if (run == -1L) {
if (errors) {
err <- odbcGetErrMsg(channel)
cat("\nobdcQuery() encountered an error running the following SQL ")
cat("query:\n\n", script, "\n\nError from Oracle server:\n")
return(err)
} else {
err <- invisible(run)
}
}
}