#' 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))
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.