30 lines
640 B
R
30 lines
640 B
R
conn <- NULL
|
|
|
|
#' @name DBClient$initialize
|
|
#' @title DBClient$initialize
|
|
#' @description
|
|
#' Initalises the DBClient instance with a DBConnection
|
|
#' @param conn <DBConnection> An instance of DBConnection
|
|
NULL
|
|
initialize <- function(conn) {
|
|
if (is.null(conn) || !R6::is.R6(conn) || !inherits(conn, "DBConnection")) {
|
|
stop("DBConnection instance required!")
|
|
}
|
|
private$conn <- conn
|
|
}
|
|
|
|
|
|
#' @name DBClient$getConnection
|
|
#' @title DBClient$getConnection
|
|
#' @description
|
|
#' Returns the DBConnection instance for this client
|
|
NULL
|
|
getConnection <- function() {
|
|
private$conn
|
|
}
|
|
|
|
|
|
.getDBConn <- function() {
|
|
private$conn$getConnection()
|
|
}
|