Как игнорировать ошибку при попытке удалить таблицы, которые не существуют с помощью RODBC? - PullRequest
0 голосов
/ 23 января 2019

У меня есть функция, которая ловит ошибки, возникающие в результате 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)
    }
  }
}
...