client <- NULL Initialize <- function(client) { if (is.null(client) || !is.R6(client) || inherits(client, "DBClient")) { stop("DBClient instance required!") } private$client <- client }