TL:DR, вызывающий odbc::dbConnect в другой функции, вызывает это предупреждение.

После долгих поисков в odbc github я нашел источник предупреждения. Вызов dbConnect создает соединение с базой данных. Внутри этой функции находится следующий код:

# perform the connection notification at the top level, to ensure that it's had
# a chance to get its external pointer connected, and so we can capture the
# expression that created it
if (!is.null(getOption("connectionObserver"))) { # nocov start
  addTaskCallback(function(expr, ...) {
    tryCatch({
      if (is.call(expr) && identical(expr[[1]], as.symbol("<-"))) {
        # notify if this is an assignment we can replay
        on_connection_opened(eval(expr[[2]]), paste(
          c("library(odbc)", deparse(expr)), collapse = "\n"))
      }
    }, error = function(e) {
      warning("Could not notify connection observer. ", e$message, call. = FALSE)
    })

    # always return false so the task callback is run at most once
    FALSE
  })
} # nocov end

Этот вызов warning должен выглядеть знакомо. Это то, что генерирует предупреждение. Так почему же он это делает?

Приведенный выше фрагмент кода пытается проверить объект подключения, чтобы убедиться, что все прошло хорошо.

Как это сделать, добавив функцию, проверяющую это, в «TaskCallBack». Это список функций, которые выполняются после завершения top-level task. Я не уверен в этом на 100%, но из того, что я могу сказать, это означает, что эти функции выполняются после завершения самой высокой функции в стеке вызовов.

Обычно это строка в вашем скрипте. Так, например:

library(odbc)
con <- odbc::dbConnect(odbc::odbc(), ...)

После завершения присваивания во второй строке выполняется следующая функция:

function(expr, ...) {
    tryCatch({
      if (is.call(expr) && identical(expr[[1]], as.symbol("<-"))) {
        # notify if this is an assignment we can replay
        on_connection_opened(eval(expr[[2]]), paste(
          c("library(odbc)", deparse(expr)), collapse = "\n"))
      }
    }, error = function(e) {
      warning("Could not notify connection observer. ", e$message, call. = FALSE)
    }
}

Выражение верхнего уровня передается функции и используется для проверки работы соединения. Затем другая функция odbc с именем on_connection_opened выполняет некоторые проверки. Если это где-то выдает ошибку, выдается предупреждение из-за ошибки tryCatch.

Так почему функция on_connection_opened вылетает?

Функция принимает следующие аргументы:

on_connection_opened <- function(connection, code)

и одна из первых вещей, которые он делает, это:

display_name <- connection@info$dbname

Что, кажется, соответствует предупреждающему сообщению:

попытка получить информацию о слоте от объекта базового класса (персонажа) без слотов

Из названия аргумента ясно, что функция on_connection_opened ожидает в своем первом аргументе объект подключения к базе данных. Что он получает от своего вызывающего абонента? eval(expr[[2]])

Это левая часть исходного вызова: con

В данном случае это объект соединения и все хорошо.

Теперь у нас достаточно информации, чтобы ответить на ваши вопросы:

Почему я получаю это предупреждающее сообщение?

Ваша функция создает соединение, которое ставит в очередь функцию проверки соединения. Если затем проверяет список таблиц и возвращает его. Затем функция проверки соединения интерпретирует список таблиц как соединение, пытается проверить его и терпит неудачу. Это выдает предупреждение.

В частности, почему я получаю его только при вызове dbListTables через функцию?

dbListTables не виноват, dbConnect виноват. Поскольку вы вызываете его из функции, он не получает объект подключения, который пытается проверить, и терпит неудачу.

Что я делаю неправильно/должен ли я сделать, чтобы избежать этого?

Обходным путем было бы открыть соединение отдельно и передать его в вашу функцию. Таким образом, соединение открывается в своем собственном вызове, поэтому проверка работает правильно.

Кроме того, вы можете снова удалить TaskCallback:

  before <- getTaskCallbackNames()
  con <- odbc::dbConnect(odbc::odbc(), ...)
  after <- getTaskCallbackNames()
  removeTaskCallback(which(!after %in% before))

Является ли бег on_connection_opened необходимым? Что именно он делает?

Как объяснил создатель пакета в этом комментарии на Github, функция обрабатывает отображение соединения на вкладке соединений в RStudio. На это не так интересно смотреть, если вы снова закроете соединение в той же функции. Так что это не обязательно для вашей функции.