R/VWriteState.R

In j2scode/nlpStudio: Natural Language Processing Environment

## ---- VWriteState
#==============================================================================#
#                                   VWriteState                                 #
#==============================================================================#
#' VWriteState
#'
#'
#' \code{VWriteState} Visitor class responsible for saving the current state of the object which accepts this visitor.
#'
#' \strong{VWriteState Methods:}
#' The VWriteState methods are as follows:
#'  \itemize{
#'   \item{\code{lab(object)}}{Method for saving the current state of Lab objects.}
#'   \item{\code{documentCollection(object)}}{Method for saving the current state of DocumentCollection objects.}
#'   \item{\code{document(object)}}{Method for saving the current state of Document objects.}
#' }
#'
#' @param object Object to be saved
#' @docType class
#' @author John James, \email{jjames@@DataScienceSalon.org}
#' @export
VWriteState <- R6::R6Class(
  classname = "VWriteState",
  private = list(

    validateObject = function(object) {

      constants <- Constants$new()

      v <- ValidatorClass$new()
      if (v$validate(class = "VWriteState", method = method, fieldName = "class(object)",
                     level = "Error", value = class(object)[1],
                     msg = paste("Unable to save object.",
                                 "Object is not of a serializable class.",
                                 "See ?VWriteState for assistance."),
                     expect = constants$getStateClasses()) == FALSE) {
        stop()
      }
    }
  ),
  public = list(

    lab = function()  {
      private$..validateObject(object)
      stateManager$saveState(object)
    },
    documentCollection = function()  {
      private$..validateObject(object)
      stateManager$saveState(object)
    },
    document = function()  {
      private$..validateObject(object)
      stateManager$saveState(object)
    }
  )
)