R/db_disconnect.R

In LEEF-UZH/LEEF.analysis: Access Functions, Tests and Basic Analysis of the RRD Data from the LEEF Project

#' Disconnect the \code{tbl_SQLiteConnection}
#'
#' Disconnect the object returned by the \code{db_read_...} functions.
#' @param x a \code{tbl_SQLiteConnection} object
#'
#' @return invisibly \code{NULL}
#'
#' @importFrom DBI dbConnect
#'
#' @export
#'
#' @examples
db_disconnect <- function(
  x
){
  if (!inherits(x, "tbl_SQLiteConnection")) {
    stop("x is not a 'tbl_SQLiteConnection'!")
  } else {
    DBI::dbDisconnect(x$src$con)
  }
  invisible(NULL)
}