R/VValidatorParent.R

In j2scode/nlpStudio: Natural Language Processing Environment

#==============================================================================#
#                                   VValidatorParent                             #
#==============================================================================#
#' VValidatorParent
#'
#'
#' \code{VValidatorParent} Visitor class responsible for validating the parameters for the parent methods
#' of aggregate and composite classes.
#'
#' \strong{VValidatorParent Methods:}
#' The VValidatorParent methods are as follows:
#'  \itemize{
#'   \item{\code{nlpStudio(object, ...)}}{Method for validating the parent method parameters of the NLPStudio object}
#'   \item{\code{lab(object, ...)}}{Method for validating the parent method parameters of the Lab object}
#'   \item{\code{documentCollection(object, ...)}}{Method for validating the parent method parameters of the DocumentCollection object.}
#'   \item{\code{documentText(object, ...)}}{Method for validating the parent method parameters of the DocumentText object.}
#'   \item{\code{documentCsv(object, ...)}}{Method for validating the parent method parameters of the DocumentCsv object.}
#'   \item{\code{documentRdata(object, ...)}}{Method for validating the parent method parameters of the DocumentRdata object.}
#'   \item{\code{documentXlsx(object, ...)}}{Method for validating the parent method parameters of the DocumentXlsx object.}
#' }
#'
#' @param object The object in its current state
#' @param ... Parameters
#'
#' @docType class
#' @author John James, \email{jjames@@DataScienceSalon.org}
#' @family Validation Visitor Classes
#' @export
VValidatorParent <- R6::R6Class(
  classname = "VValidatorParent",
  inherit = VValidator,
  lock_objects = FALSE,
  lock_class = FALSE,

  private = list(

    validate = function(classes, object, ...) {

      # Validate class of object
      if (class(object)[1] %in% c("NLPStudio", "Lab")) {
        v <- Validator0$new()
        v$notify(class = class(object)[1], method = "parent",
                 fieldName = "class(object)", value = class(object)[1],
                 level = "Error",
                 msg = paste0("This method is not implemented for the ",
                              class(object)[1], " class. ",
                              "See ?", class(object)[1],
                              " for further assistance."),
                   expect = NULL)
        return(FALSE)
      }

      # Validate parent parameter
      if (missing(parent)) {
        return(TRUE)
      } else {
        # Confirm class of child
        name <- parent$getName()
        v <- ValidatorClass$new()
        if (v$validate(class = class(object)[1], method = "parent",
                       fieldName = "parent", value = parent, level = "Error",
                       msg = paste0(class(parent)[1], " is an invalid parent",
                                    " class for object of the ", class(object)[1],
                                    " class. See ?", class(object)[1],
                                   " for further assistance."),
                       expect = classes) == FALSE) {
          return(FALSE)
        }
      }
    }
  ),

  public = list(

    nlpStudio = function(object,...) {
      return(private$validate(classes = classes, object = object, ...))
    },

    lab = function(object,...) {
      return(private$validate(classes = classes, object = object, ...))
    },

    documentCollection = function(object,...) {
      classes <- c("Lab", "DocumentCollection")
      return(private$validate(classes = classes, object = object, ...))
    },

    documentText = function(object,...) {
      classes <- "DocumentCollection"
      return(private$validate(classes = classes, object = object, ...))
    },

    documentCsv = function(object,...) {
      classes <- "DocumentCollection"
      return(private$validate(classes = classes, object = object, ...))
    },

    documentRdata = function(object,...) {
      classes <- "DocumentCollection"
      return(private$validate(classes = classes, object = object, ...))
    },

    documentXlsx = function(object,...) {
      return(private$validate(classes = classes, object = object, ...))
    }
  )
)