23 lines
500 B
R
23 lines
500 B
R
token <- NULL
|
|
|
|
|
|
#' @name DBConnection$initialize
|
|
#' @title DBConnection$initialize
|
|
#' @aliases DBConnection$initialize
|
|
#' @description
|
|
#' Initalises the DBConnection instance with an identity token.
|
|
NULL
|
|
initialize <- function() {
|
|
private$token <- paste0(collapse = "", sample(c(LETTERS, 0:9), 16, TRUE))
|
|
}
|
|
|
|
|
|
#' @name DBConnection$getToken
|
|
#' @title DBConnection$getToken
|
|
#' @description
|
|
#' Returns the identity token for this DBConnection instance.
|
|
NULL
|
|
getToken <- function() {
|
|
private$token
|
|
}
|