R/check.R

Defines functions check_sqlite_connection

check_sqlite_connection <- function(x, x_name = substitute(x)) {
  if (!is.character(x)) x_name %<>% deparse()
  if (!is_sqlite_connection(x))
    error(x_name, " must an SQLiteConnection object")
  invisible(x)
}
poissonconsulting/poissqlite documentation built on Sept. 17, 2021, 12:34 a.m.