R/CSVValidationModel.r

In OpenSILEX/opensilexClientToolsR: R Package Client for OpenSilex API

# OpenSilex API
#
# No description provided (generated by Swagger Codegen https://github.com/swagger-api/swagger-codegen)
#
# OpenAPI spec version: 1.0.0-rc+2
# 
# Generated by: https://github.com/swagger-api/swagger-codegen.git


#' CSVValidationModel Class
#'
#' @field missingHeaders 
#' @field emptyHeaders 
#' @field invalidHeaderURIs 
#' @field datatypeErrors 
#' @field uriNotFoundErrors 
#' @field invalidURIErrors 
#' @field missingRequiredValueErrors 
#' @field invalidValueErrors 
#' @field alreadyExistingURIErrors 
#' @field duplicateURIErrors 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
CSVValidationModel <- R6::R6Class(
  'CSVValidationModel',
  public = list(
    `missingHeaders` = NULL,
    `emptyHeaders` = NULL,
    `invalidHeaderURIs` = NULL,
    `datatypeErrors` = NULL,
    `uriNotFoundErrors` = NULL,
    `invalidURIErrors` = NULL,
    `missingRequiredValueErrors` = NULL,
    `invalidValueErrors` = NULL,
    `alreadyExistingURIErrors` = NULL,
    `duplicateURIErrors` = NULL,
    initialize = function(`missingHeaders`, `emptyHeaders`, `invalidHeaderURIs`, `datatypeErrors`, `uriNotFoundErrors`, `invalidURIErrors`, `missingRequiredValueErrors`, `invalidValueErrors`, `alreadyExistingURIErrors`, `duplicateURIErrors`){
      if (!missing(`missingHeaders`)) {
        stopifnot(is.list(`missingHeaders`), length(`missingHeaders`) != 0)
        lapply(`missingHeaders`, function(x) stopifnot(is.character(x)))
        self$`missingHeaders` <- `missingHeaders`
      }
      if (!missing(`emptyHeaders`)) {
        stopifnot(is.list(`emptyHeaders`), length(`emptyHeaders`) != 0)
        lapply(`emptyHeaders`, function(x) stopifnot(is.character(x)))
        self$`emptyHeaders` <- `emptyHeaders`
      }
      if (!missing(`invalidHeaderURIs`)) {
        self$`invalidHeaderURIs` <- `invalidHeaderURIs`
      }
      if (!missing(`datatypeErrors`)) {
        stopifnot(R6::is.R6(`datatypeErrors`))
        self$`datatypeErrors` <- `datatypeErrors`
      }
      if (!missing(`uriNotFoundErrors`)) {
        stopifnot(R6::is.R6(`uriNotFoundErrors`))
        self$`uriNotFoundErrors` <- `uriNotFoundErrors`
      }
      if (!missing(`invalidURIErrors`)) {
        stopifnot(R6::is.R6(`invalidURIErrors`))
        self$`invalidURIErrors` <- `invalidURIErrors`
      }
      if (!missing(`missingRequiredValueErrors`)) {
        stopifnot(R6::is.R6(`missingRequiredValueErrors`))
        self$`missingRequiredValueErrors` <- `missingRequiredValueErrors`
      }
      if (!missing(`invalidValueErrors`)) {
        stopifnot(R6::is.R6(`invalidValueErrors`))
        self$`invalidValueErrors` <- `invalidValueErrors`
      }
      if (!missing(`alreadyExistingURIErrors`)) {
        stopifnot(R6::is.R6(`alreadyExistingURIErrors`))
        self$`alreadyExistingURIErrors` <- `alreadyExistingURIErrors`
      }
      if (!missing(`duplicateURIErrors`)) {
        stopifnot(R6::is.R6(`duplicateURIErrors`))
        self$`duplicateURIErrors` <- `duplicateURIErrors`
      }
    },
    toJSON = function() {
      CSVValidationModelObject <- list()
      if (!is.null(self$`missingHeaders`)) {
        CSVValidationModelObject[['missingHeaders']] <- self$`missingHeaders`
      }
      if (!is.null(self$`emptyHeaders`)) {
        CSVValidationModelObject[['emptyHeaders']] <- self$`emptyHeaders`
      }
      if (!is.null(self$`invalidHeaderURIs`)) {
        CSVValidationModelObject[['invalidHeaderURIs']] <- self$`invalidHeaderURIs`
      }
      if (!is.null(self$`datatypeErrors`)) {
        CSVValidationModelObject[['datatypeErrors']] <- self$`datatypeErrors`$toJSON()
      }
      if (!is.null(self$`uriNotFoundErrors`)) {
        CSVValidationModelObject[['uriNotFoundErrors']] <- self$`uriNotFoundErrors`$toJSON()
      }
      if (!is.null(self$`invalidURIErrors`)) {
        CSVValidationModelObject[['invalidURIErrors']] <- self$`invalidURIErrors`$toJSON()
      }
      if (!is.null(self$`missingRequiredValueErrors`)) {
        CSVValidationModelObject[['missingRequiredValueErrors']] <- self$`missingRequiredValueErrors`$toJSON()
      }
      if (!is.null(self$`invalidValueErrors`)) {
        CSVValidationModelObject[['invalidValueErrors']] <- self$`invalidValueErrors`$toJSON()
      }
      if (!is.null(self$`alreadyExistingURIErrors`)) {
        CSVValidationModelObject[['alreadyExistingURIErrors']] <- self$`alreadyExistingURIErrors`$toJSON()
      }
      if (!is.null(self$`duplicateURIErrors`)) {
        CSVValidationModelObject[['duplicateURIErrors']] <- self$`duplicateURIErrors`$toJSON()
      }

      CSVValidationModelObject
    },
    fromJSON = function(CSVValidationModelJson) {
      CSVValidationModelObject <- jsonlite::fromJSON(CSVValidationModelJson)
      if (!is.null(CSVValidationModelObject$`missingHeaders`)) {
        self$`missingHeaders` <- CSVValidationModelObject$`missingHeaders`
      }
      if (!is.null(CSVValidationModelObject$`emptyHeaders`)) {
        self$`emptyHeaders` <- CSVValidationModelObject$`emptyHeaders`
      }
      if (!is.null(CSVValidationModelObject$`invalidHeaderURIs`)) {
        self$`invalidHeaderURIs` <- CSVValidationModelObject$`invalidHeaderURIs`
      }
      if (!is.null(CSVValidationModelObject$`datatypeErrors`)) {
        datatypeErrorsObject <- CSVDatatypeError$new()
        datatypeErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$datatypeErrors, auto_unbox = TRUE, null = "null"))
        self$`datatypeErrors` <- datatypeErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`uriNotFoundErrors`)) {
        uriNotFoundErrorsObject <- CSVURINotFoundError$new()
        uriNotFoundErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$uriNotFoundErrors, auto_unbox = TRUE, null = "null"))
        self$`uriNotFoundErrors` <- uriNotFoundErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`invalidURIErrors`)) {
        invalidURIErrorsObject <- CSVCell$new()
        invalidURIErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$invalidURIErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidURIErrors` <- invalidURIErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`missingRequiredValueErrors`)) {
        missingRequiredValueErrorsObject <- CSVCell$new()
        missingRequiredValueErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$missingRequiredValueErrors, auto_unbox = TRUE, null = "null"))
        self$`missingRequiredValueErrors` <- missingRequiredValueErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`invalidValueErrors`)) {
        invalidValueErrorsObject <- CSVCell$new()
        invalidValueErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$invalidValueErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidValueErrors` <- invalidValueErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`alreadyExistingURIErrors`)) {
        alreadyExistingURIErrorsObject <- CSVCell$new()
        alreadyExistingURIErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$alreadyExistingURIErrors, auto_unbox = TRUE, null = "null"))
        self$`alreadyExistingURIErrors` <- alreadyExistingURIErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`duplicateURIErrors`)) {
        duplicateURIErrorsObject <- CSVDuplicateURIError$new()
        duplicateURIErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$duplicateURIErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicateURIErrors` <- duplicateURIErrorsObject
      }
    },
    fromJSONObject = function(CSVValidationModelObject) {
      if (!is.null(CSVValidationModelObject$`missingHeaders`)) {
        self$`missingHeaders` <- CSVValidationModelObject$`missingHeaders`
      }
      if (!is.null(CSVValidationModelObject$`emptyHeaders`)) {
        self$`emptyHeaders` <- CSVValidationModelObject$`emptyHeaders`
      }
      if (!is.null(CSVValidationModelObject$`invalidHeaderURIs`)) {
        self$`invalidHeaderURIs` <- CSVValidationModelObject$`invalidHeaderURIs`
      }
      if (!is.null(CSVValidationModelObject$`datatypeErrors`)) {
        datatypeErrorsObject <- CSVDatatypeError$new()
        datatypeErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$datatypeErrors, auto_unbox = TRUE, null = "null"))
        self$`datatypeErrors` <- datatypeErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`uriNotFoundErrors`)) {
        uriNotFoundErrorsObject <- CSVURINotFoundError$new()
        uriNotFoundErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$uriNotFoundErrors, auto_unbox = TRUE, null = "null"))
        self$`uriNotFoundErrors` <- uriNotFoundErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`invalidURIErrors`)) {
        invalidURIErrorsObject <- CSVCell$new()
        invalidURIErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$invalidURIErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidURIErrors` <- invalidURIErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`missingRequiredValueErrors`)) {
        missingRequiredValueErrorsObject <- CSVCell$new()
        missingRequiredValueErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$missingRequiredValueErrors, auto_unbox = TRUE, null = "null"))
        self$`missingRequiredValueErrors` <- missingRequiredValueErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`invalidValueErrors`)) {
        invalidValueErrorsObject <- CSVCell$new()
        invalidValueErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$invalidValueErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidValueErrors` <- invalidValueErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`alreadyExistingURIErrors`)) {
        alreadyExistingURIErrorsObject <- CSVCell$new()
        alreadyExistingURIErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$alreadyExistingURIErrors, auto_unbox = TRUE, null = "null"))
        self$`alreadyExistingURIErrors` <- alreadyExistingURIErrorsObject
      }
      if (!is.null(CSVValidationModelObject$`duplicateURIErrors`)) {
        duplicateURIErrorsObject <- CSVDuplicateURIError$new()
        duplicateURIErrorsObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$duplicateURIErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicateURIErrors` <- duplicateURIErrorsObject
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "missingHeaders": [%s],
           "emptyHeaders": [%s],
           "invalidHeaderURIs": %s,
           "datatypeErrors": %s,
           "uriNotFoundErrors": %s,
           "invalidURIErrors": %s,
           "missingRequiredValueErrors": %s,
           "invalidValueErrors": %s,
           "alreadyExistingURIErrors": %s,
           "duplicateURIErrors": %s
        }',
        ifelse(is.null(self$`missingHeaders`) || length(self$`missingHeaders`) == 0, "" ,lapply(self$`missingHeaders`, function(x) paste(paste0('"', x, '"'), sep=","))),
        ifelse(is.null(self$`emptyHeaders`) || length(self$`emptyHeaders`) == 0, "" ,lapply(self$`emptyHeaders`, function(x) paste(paste0('"', x, '"'), sep=","))),
        ifelse(is.null(self$`invalidHeaderURIs`), "null",jsonlite::toJSON(self$`invalidHeaderURIs`,auto_unbox=TRUE, null = "null")),
        jsonlite::toJSON(self$`datatypeErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`uriNotFoundErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`invalidURIErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`missingRequiredValueErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`invalidValueErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`alreadyExistingURIErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`duplicateURIErrors`$toJSON(),auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(CSVValidationModelJson) {
      CSVValidationModelObject <- jsonlite::fromJSON(CSVValidationModelJson)
      self$`missingHeaders` <- CSVValidationModelObject$`missingHeaders`
      self$`emptyHeaders` <- CSVValidationModelObject$`emptyHeaders`
      self$`invalidHeaderURIs` <- CSVValidationModelObject$`invalidHeaderURIs`
      CSVDatatypeErrorObject <- CSVDatatypeError$new()
      self$`datatypeErrors` <- CSVDatatypeErrorObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$datatypeErrors, auto_unbox = TRUE))
      CSVURINotFoundErrorObject <- CSVURINotFoundError$new()
      self$`uriNotFoundErrors` <- CSVURINotFoundErrorObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$uriNotFoundErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidURIErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$invalidURIErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`missingRequiredValueErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$missingRequiredValueErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidValueErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$invalidValueErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`alreadyExistingURIErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$alreadyExistingURIErrors, auto_unbox = TRUE))
      CSVDuplicateURIErrorObject <- CSVDuplicateURIError$new()
      self$`duplicateURIErrors` <- CSVDuplicateURIErrorObject$fromJSON(jsonlite::toJSON(CSVValidationModelObject$duplicateURIErrors, auto_unbox = TRUE))
    }
  )
)