## ---- Singleton
#==============================================================================#
# Singleton #
#==============================================================================#
#' Singleton
#'
#'
#' \code{Singleton} Singleton class for NLPStudio subclass
#'
#' This class ...
#'
#' @docType class
#' @section Methods:
#' \describe{
#' \item{\code{initialize(...)}}{Initializes a Singleton object}
#' \item{\code{getInstance(...)}}{Gets instance of singleton object }
#' }
#'
#' @author John James, \email{jjames@@datasciencesalon.org}
#' @export
Singleton <- R6::R6Class(
"Singleton",
portable = FALSE,
private = list(
Class = "ANY",
instance = "ANY"
),
public = list(
initialize = function(...) {
private$instance <<- NULL
},
getInstance = function(...) {
if(is.null(private$instance)) private$instance <<- Class$new(...)
return(private$instance)
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.