R/tableschemaerror.R

In tableschema.r: Table Schema 'Frictionless Data'

#' TableSchemaError class
#' @description Error class for Table Schema
#' @docType class
#' @importFrom R6 R6Class
#' @export
#' @include types.R
#' @include constraints.R
#' @keywords data
#' @return Object of \code{\link{R6Class}} .
#' @format \code{\link{R6Class}} object.
#'
#' @field message 
#' @field error 
#' @param message message
#' @param error error
TableSchemaError <- R6Class(
  "TableSchemaError",
  public = list(
    message = NULL,
    error = NULL,
    initialize = function(message, error = NULL){
      self$message <- message
      self$error <- error
    }),
  active = list(
    multiple = function() {
      if (length(self$error) %in% c(0,1)) return(FALSE) else return(TRUE)
    },
    errors = function() {
      return(as.list(self$error))
    }
  )
)