R/DataCSVValidationModel.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


#' DataCSVValidationModel Class
#'
#' @field missingHeaders 
#' @field emptyHeaders 
#' @field invalidHeaderURIs 
#' @field datatypeErrors 
#' @field uriNotFoundErrors 
#' @field invalidURIErrors 
#' @field missingRequiredValueErrors 
#' @field invalidValueErrors 
#' @field alreadyExistingURIErrors 
#' @field duplicateURIErrors 
#' @field invalidObjectErrors 
#' @field invalidDateErrors 
#' @field invalidDataTypeErrors 
#' @field invalidExperimentErrors 
#' @field invalidDeviceErrors 
#' @field deviceChoiceAmbiguityErrors 
#' @field duplicatedDataErrors 
#' @field duplicatedObjectErrors 
#' @field duplicatedExperimentErrors 
#' @field duplicatedDeviceErrors 
#' @field headers 
#' @field headersLabels 
#' @field nbLinesImported 
#' @field nbLinesToImport 
#' @field validationStep 
#' @field insertionStep 
#' @field validCSV 
#' @field tooLargeDataset 
#' @field errorMessage 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
DataCSVValidationModel <- R6::R6Class(
  'DataCSVValidationModel',
  public = list(
    `missingHeaders` = NULL,
    `emptyHeaders` = NULL,
    `invalidHeaderURIs` = NULL,
    `datatypeErrors` = NULL,
    `uriNotFoundErrors` = NULL,
    `invalidURIErrors` = NULL,
    `missingRequiredValueErrors` = NULL,
    `invalidValueErrors` = NULL,
    `alreadyExistingURIErrors` = NULL,
    `duplicateURIErrors` = NULL,
    `invalidObjectErrors` = NULL,
    `invalidDateErrors` = NULL,
    `invalidDataTypeErrors` = NULL,
    `invalidExperimentErrors` = NULL,
    `invalidDeviceErrors` = NULL,
    `deviceChoiceAmbiguityErrors` = NULL,
    `duplicatedDataErrors` = NULL,
    `duplicatedObjectErrors` = NULL,
    `duplicatedExperimentErrors` = NULL,
    `duplicatedDeviceErrors` = NULL,
    `headers` = NULL,
    `headersLabels` = NULL,
    `nbLinesImported` = NULL,
    `nbLinesToImport` = NULL,
    `validationStep` = NULL,
    `insertionStep` = NULL,
    `validCSV` = NULL,
    `tooLargeDataset` = NULL,
    `errorMessage` = NULL,
    initialize = function(`missingHeaders`, `emptyHeaders`, `invalidHeaderURIs`, `datatypeErrors`, `uriNotFoundErrors`, `invalidURIErrors`, `missingRequiredValueErrors`, `invalidValueErrors`, `alreadyExistingURIErrors`, `duplicateURIErrors`, `invalidObjectErrors`, `invalidDateErrors`, `invalidDataTypeErrors`, `invalidExperimentErrors`, `invalidDeviceErrors`, `deviceChoiceAmbiguityErrors`, `duplicatedDataErrors`, `duplicatedObjectErrors`, `duplicatedExperimentErrors`, `duplicatedDeviceErrors`, `headers`, `headersLabels`, `nbLinesImported`, `nbLinesToImport`, `validationStep`, `insertionStep`, `validCSV`, `tooLargeDataset`, `errorMessage`){
      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`
      }
      if (!missing(`invalidObjectErrors`)) {
        stopifnot(R6::is.R6(`invalidObjectErrors`))
        self$`invalidObjectErrors` <- `invalidObjectErrors`
      }
      if (!missing(`invalidDateErrors`)) {
        stopifnot(R6::is.R6(`invalidDateErrors`))
        self$`invalidDateErrors` <- `invalidDateErrors`
      }
      if (!missing(`invalidDataTypeErrors`)) {
        stopifnot(R6::is.R6(`invalidDataTypeErrors`))
        self$`invalidDataTypeErrors` <- `invalidDataTypeErrors`
      }
      if (!missing(`invalidExperimentErrors`)) {
        stopifnot(R6::is.R6(`invalidExperimentErrors`))
        self$`invalidExperimentErrors` <- `invalidExperimentErrors`
      }
      if (!missing(`invalidDeviceErrors`)) {
        stopifnot(R6::is.R6(`invalidDeviceErrors`))
        self$`invalidDeviceErrors` <- `invalidDeviceErrors`
      }
      if (!missing(`deviceChoiceAmbiguityErrors`)) {
        stopifnot(R6::is.R6(`deviceChoiceAmbiguityErrors`))
        self$`deviceChoiceAmbiguityErrors` <- `deviceChoiceAmbiguityErrors`
      }
      if (!missing(`duplicatedDataErrors`)) {
        stopifnot(R6::is.R6(`duplicatedDataErrors`))
        self$`duplicatedDataErrors` <- `duplicatedDataErrors`
      }
      if (!missing(`duplicatedObjectErrors`)) {
        stopifnot(R6::is.R6(`duplicatedObjectErrors`))
        self$`duplicatedObjectErrors` <- `duplicatedObjectErrors`
      }
      if (!missing(`duplicatedExperimentErrors`)) {
        stopifnot(R6::is.R6(`duplicatedExperimentErrors`))
        self$`duplicatedExperimentErrors` <- `duplicatedExperimentErrors`
      }
      if (!missing(`duplicatedDeviceErrors`)) {
        stopifnot(R6::is.R6(`duplicatedDeviceErrors`))
        self$`duplicatedDeviceErrors` <- `duplicatedDeviceErrors`
      }
      if (!missing(`headers`)) {
        stopifnot(is.list(`headers`), length(`headers`) != 0)
        lapply(`headers`, function(x) stopifnot(is.character(x)))
        self$`headers` <- `headers`
      }
      if (!missing(`headersLabels`)) {
        stopifnot(is.list(`headersLabels`), length(`headersLabels`) != 0)
        lapply(`headersLabels`, function(x) stopifnot(is.character(x)))
        self$`headersLabels` <- `headersLabels`
      }
      if (!missing(`nbLinesImported`)) {
        stopifnot(is.numeric(`nbLinesImported`), length(`nbLinesImported`) == 1)
        self$`nbLinesImported` <- `nbLinesImported`
      }
      if (!missing(`nbLinesToImport`)) {
        stopifnot(is.numeric(`nbLinesToImport`), length(`nbLinesToImport`) == 1)
        self$`nbLinesToImport` <- `nbLinesToImport`
      }
      if (!missing(`validationStep`)) {
        self$`validationStep` <- `validationStep`
      }
      if (!missing(`insertionStep`)) {
        self$`insertionStep` <- `insertionStep`
      }
      if (!missing(`validCSV`)) {
        self$`validCSV` <- `validCSV`
      }
      if (!missing(`tooLargeDataset`)) {
        self$`tooLargeDataset` <- `tooLargeDataset`
      }
      if (!missing(`errorMessage`)) {
        stopifnot(is.character(`errorMessage`), length(`errorMessage`) == 1)
        self$`errorMessage` <- `errorMessage`
      }
    },
    toJSON = function() {
      DataCSVValidationModelObject <- list()
      if (!is.null(self$`missingHeaders`)) {
        DataCSVValidationModelObject[['missingHeaders']] <- self$`missingHeaders`
      }
      if (!is.null(self$`emptyHeaders`)) {
        DataCSVValidationModelObject[['emptyHeaders']] <- self$`emptyHeaders`
      }
      if (!is.null(self$`invalidHeaderURIs`)) {
        DataCSVValidationModelObject[['invalidHeaderURIs']] <- self$`invalidHeaderURIs`
      }
      if (!is.null(self$`datatypeErrors`)) {
        DataCSVValidationModelObject[['datatypeErrors']] <- self$`datatypeErrors`$toJSON()
      }
      if (!is.null(self$`uriNotFoundErrors`)) {
        DataCSVValidationModelObject[['uriNotFoundErrors']] <- self$`uriNotFoundErrors`$toJSON()
      }
      if (!is.null(self$`invalidURIErrors`)) {
        DataCSVValidationModelObject[['invalidURIErrors']] <- self$`invalidURIErrors`$toJSON()
      }
      if (!is.null(self$`missingRequiredValueErrors`)) {
        DataCSVValidationModelObject[['missingRequiredValueErrors']] <- self$`missingRequiredValueErrors`$toJSON()
      }
      if (!is.null(self$`invalidValueErrors`)) {
        DataCSVValidationModelObject[['invalidValueErrors']] <- self$`invalidValueErrors`$toJSON()
      }
      if (!is.null(self$`alreadyExistingURIErrors`)) {
        DataCSVValidationModelObject[['alreadyExistingURIErrors']] <- self$`alreadyExistingURIErrors`$toJSON()
      }
      if (!is.null(self$`duplicateURIErrors`)) {
        DataCSVValidationModelObject[['duplicateURIErrors']] <- self$`duplicateURIErrors`$toJSON()
      }
      if (!is.null(self$`invalidObjectErrors`)) {
        DataCSVValidationModelObject[['invalidObjectErrors']] <- self$`invalidObjectErrors`$toJSON()
      }
      if (!is.null(self$`invalidDateErrors`)) {
        DataCSVValidationModelObject[['invalidDateErrors']] <- self$`invalidDateErrors`$toJSON()
      }
      if (!is.null(self$`invalidDataTypeErrors`)) {
        DataCSVValidationModelObject[['invalidDataTypeErrors']] <- self$`invalidDataTypeErrors`$toJSON()
      }
      if (!is.null(self$`invalidExperimentErrors`)) {
        DataCSVValidationModelObject[['invalidExperimentErrors']] <- self$`invalidExperimentErrors`$toJSON()
      }
      if (!is.null(self$`invalidDeviceErrors`)) {
        DataCSVValidationModelObject[['invalidDeviceErrors']] <- self$`invalidDeviceErrors`$toJSON()
      }
      if (!is.null(self$`deviceChoiceAmbiguityErrors`)) {
        DataCSVValidationModelObject[['deviceChoiceAmbiguityErrors']] <- self$`deviceChoiceAmbiguityErrors`$toJSON()
      }
      if (!is.null(self$`duplicatedDataErrors`)) {
        DataCSVValidationModelObject[['duplicatedDataErrors']] <- self$`duplicatedDataErrors`$toJSON()
      }
      if (!is.null(self$`duplicatedObjectErrors`)) {
        DataCSVValidationModelObject[['duplicatedObjectErrors']] <- self$`duplicatedObjectErrors`$toJSON()
      }
      if (!is.null(self$`duplicatedExperimentErrors`)) {
        DataCSVValidationModelObject[['duplicatedExperimentErrors']] <- self$`duplicatedExperimentErrors`$toJSON()
      }
      if (!is.null(self$`duplicatedDeviceErrors`)) {
        DataCSVValidationModelObject[['duplicatedDeviceErrors']] <- self$`duplicatedDeviceErrors`$toJSON()
      }
      if (!is.null(self$`headers`)) {
        DataCSVValidationModelObject[['headers']] <- self$`headers`
      }
      if (!is.null(self$`headersLabels`)) {
        DataCSVValidationModelObject[['headersLabels']] <- self$`headersLabels`
      }
      if (!is.null(self$`nbLinesImported`)) {
        DataCSVValidationModelObject[['nbLinesImported']] <- self$`nbLinesImported`
      }
      if (!is.null(self$`nbLinesToImport`)) {
        DataCSVValidationModelObject[['nbLinesToImport']] <- self$`nbLinesToImport`
      }
      if (!is.null(self$`validationStep`)) {
        DataCSVValidationModelObject[['validationStep']] <- self$`validationStep`
      }
      if (!is.null(self$`insertionStep`)) {
        DataCSVValidationModelObject[['insertionStep']] <- self$`insertionStep`
      }
      if (!is.null(self$`validCSV`)) {
        DataCSVValidationModelObject[['validCSV']] <- self$`validCSV`
      }
      if (!is.null(self$`tooLargeDataset`)) {
        DataCSVValidationModelObject[['tooLargeDataset']] <- self$`tooLargeDataset`
      }
      if (!is.null(self$`errorMessage`)) {
        DataCSVValidationModelObject[['errorMessage']] <- self$`errorMessage`
      }

      DataCSVValidationModelObject
    },
    fromJSON = function(DataCSVValidationModelJson) {
      DataCSVValidationModelObject <- jsonlite::fromJSON(DataCSVValidationModelJson)
      if (!is.null(DataCSVValidationModelObject$`missingHeaders`)) {
        self$`missingHeaders` <- DataCSVValidationModelObject$`missingHeaders`
      }
      if (!is.null(DataCSVValidationModelObject$`emptyHeaders`)) {
        self$`emptyHeaders` <- DataCSVValidationModelObject$`emptyHeaders`
      }
      if (!is.null(DataCSVValidationModelObject$`invalidHeaderURIs`)) {
        self$`invalidHeaderURIs` <- DataCSVValidationModelObject$`invalidHeaderURIs`
      }
      if (!is.null(DataCSVValidationModelObject$`datatypeErrors`)) {
        datatypeErrorsObject <- CSVDatatypeError$new()
        datatypeErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$datatypeErrors, auto_unbox = TRUE, null = "null"))
        self$`datatypeErrors` <- datatypeErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`uriNotFoundErrors`)) {
        uriNotFoundErrorsObject <- CSVURINotFoundError$new()
        uriNotFoundErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$uriNotFoundErrors, auto_unbox = TRUE, null = "null"))
        self$`uriNotFoundErrors` <- uriNotFoundErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidURIErrors`)) {
        invalidURIErrorsObject <- CSVCell$new()
        invalidURIErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidURIErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidURIErrors` <- invalidURIErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`missingRequiredValueErrors`)) {
        missingRequiredValueErrorsObject <- CSVCell$new()
        missingRequiredValueErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$missingRequiredValueErrors, auto_unbox = TRUE, null = "null"))
        self$`missingRequiredValueErrors` <- missingRequiredValueErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidValueErrors`)) {
        invalidValueErrorsObject <- CSVCell$new()
        invalidValueErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidValueErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidValueErrors` <- invalidValueErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`alreadyExistingURIErrors`)) {
        alreadyExistingURIErrorsObject <- CSVCell$new()
        alreadyExistingURIErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$alreadyExistingURIErrors, auto_unbox = TRUE, null = "null"))
        self$`alreadyExistingURIErrors` <- alreadyExistingURIErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicateURIErrors`)) {
        duplicateURIErrorsObject <- CSVDuplicateURIError$new()
        duplicateURIErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicateURIErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicateURIErrors` <- duplicateURIErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidObjectErrors`)) {
        invalidObjectErrorsObject <- CSVCell$new()
        invalidObjectErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidObjectErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidObjectErrors` <- invalidObjectErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidDateErrors`)) {
        invalidDateErrorsObject <- CSVCell$new()
        invalidDateErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDateErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidDateErrors` <- invalidDateErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidDataTypeErrors`)) {
        invalidDataTypeErrorsObject <- CSVCell$new()
        invalidDataTypeErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDataTypeErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidDataTypeErrors` <- invalidDataTypeErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidExperimentErrors`)) {
        invalidExperimentErrorsObject <- CSVCell$new()
        invalidExperimentErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidExperimentErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidExperimentErrors` <- invalidExperimentErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidDeviceErrors`)) {
        invalidDeviceErrorsObject <- CSVCell$new()
        invalidDeviceErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDeviceErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidDeviceErrors` <- invalidDeviceErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`deviceChoiceAmbiguityErrors`)) {
        deviceChoiceAmbiguityErrorsObject <- CSVCell$new()
        deviceChoiceAmbiguityErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$deviceChoiceAmbiguityErrors, auto_unbox = TRUE, null = "null"))
        self$`deviceChoiceAmbiguityErrors` <- deviceChoiceAmbiguityErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedDataErrors`)) {
        duplicatedDataErrorsObject <- CSVCell$new()
        duplicatedDataErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedDataErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedDataErrors` <- duplicatedDataErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedObjectErrors`)) {
        duplicatedObjectErrorsObject <- CSVCell$new()
        duplicatedObjectErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedObjectErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedObjectErrors` <- duplicatedObjectErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedExperimentErrors`)) {
        duplicatedExperimentErrorsObject <- CSVCell$new()
        duplicatedExperimentErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedExperimentErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedExperimentErrors` <- duplicatedExperimentErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedDeviceErrors`)) {
        duplicatedDeviceErrorsObject <- CSVCell$new()
        duplicatedDeviceErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedDeviceErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedDeviceErrors` <- duplicatedDeviceErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`headers`)) {
        self$`headers` <- DataCSVValidationModelObject$`headers`
      }
      if (!is.null(DataCSVValidationModelObject$`headersLabels`)) {
        self$`headersLabels` <- DataCSVValidationModelObject$`headersLabels`
      }
      if (!is.null(DataCSVValidationModelObject$`nbLinesImported`)) {
        self$`nbLinesImported` <- DataCSVValidationModelObject$`nbLinesImported`
      }
      if (!is.null(DataCSVValidationModelObject$`nbLinesToImport`)) {
        self$`nbLinesToImport` <- DataCSVValidationModelObject$`nbLinesToImport`
      }
      if (!is.null(DataCSVValidationModelObject$`validationStep`)) {
        self$`validationStep` <- DataCSVValidationModelObject$`validationStep`
      }
      if (!is.null(DataCSVValidationModelObject$`insertionStep`)) {
        self$`insertionStep` <- DataCSVValidationModelObject$`insertionStep`
      }
      if (!is.null(DataCSVValidationModelObject$`validCSV`)) {
        self$`validCSV` <- DataCSVValidationModelObject$`validCSV`
      }
      if (!is.null(DataCSVValidationModelObject$`tooLargeDataset`)) {
        self$`tooLargeDataset` <- DataCSVValidationModelObject$`tooLargeDataset`
      }
      if (!is.null(DataCSVValidationModelObject$`errorMessage`)) {
        self$`errorMessage` <- DataCSVValidationModelObject$`errorMessage`
      }
    },
    fromJSONObject = function(DataCSVValidationModelObject) {
      if (!is.null(DataCSVValidationModelObject$`missingHeaders`)) {
        self$`missingHeaders` <- DataCSVValidationModelObject$`missingHeaders`
      }
      if (!is.null(DataCSVValidationModelObject$`emptyHeaders`)) {
        self$`emptyHeaders` <- DataCSVValidationModelObject$`emptyHeaders`
      }
      if (!is.null(DataCSVValidationModelObject$`invalidHeaderURIs`)) {
        self$`invalidHeaderURIs` <- DataCSVValidationModelObject$`invalidHeaderURIs`
      }
      if (!is.null(DataCSVValidationModelObject$`datatypeErrors`)) {
        datatypeErrorsObject <- CSVDatatypeError$new()
        datatypeErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$datatypeErrors, auto_unbox = TRUE, null = "null"))
        self$`datatypeErrors` <- datatypeErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`uriNotFoundErrors`)) {
        uriNotFoundErrorsObject <- CSVURINotFoundError$new()
        uriNotFoundErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$uriNotFoundErrors, auto_unbox = TRUE, null = "null"))
        self$`uriNotFoundErrors` <- uriNotFoundErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidURIErrors`)) {
        invalidURIErrorsObject <- CSVCell$new()
        invalidURIErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidURIErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidURIErrors` <- invalidURIErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`missingRequiredValueErrors`)) {
        missingRequiredValueErrorsObject <- CSVCell$new()
        missingRequiredValueErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$missingRequiredValueErrors, auto_unbox = TRUE, null = "null"))
        self$`missingRequiredValueErrors` <- missingRequiredValueErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidValueErrors`)) {
        invalidValueErrorsObject <- CSVCell$new()
        invalidValueErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidValueErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidValueErrors` <- invalidValueErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`alreadyExistingURIErrors`)) {
        alreadyExistingURIErrorsObject <- CSVCell$new()
        alreadyExistingURIErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$alreadyExistingURIErrors, auto_unbox = TRUE, null = "null"))
        self$`alreadyExistingURIErrors` <- alreadyExistingURIErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicateURIErrors`)) {
        duplicateURIErrorsObject <- CSVDuplicateURIError$new()
        duplicateURIErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicateURIErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicateURIErrors` <- duplicateURIErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidObjectErrors`)) {
        invalidObjectErrorsObject <- CSVCell$new()
        invalidObjectErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidObjectErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidObjectErrors` <- invalidObjectErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidDateErrors`)) {
        invalidDateErrorsObject <- CSVCell$new()
        invalidDateErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDateErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidDateErrors` <- invalidDateErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidDataTypeErrors`)) {
        invalidDataTypeErrorsObject <- CSVCell$new()
        invalidDataTypeErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDataTypeErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidDataTypeErrors` <- invalidDataTypeErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidExperimentErrors`)) {
        invalidExperimentErrorsObject <- CSVCell$new()
        invalidExperimentErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidExperimentErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidExperimentErrors` <- invalidExperimentErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`invalidDeviceErrors`)) {
        invalidDeviceErrorsObject <- CSVCell$new()
        invalidDeviceErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDeviceErrors, auto_unbox = TRUE, null = "null"))
        self$`invalidDeviceErrors` <- invalidDeviceErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`deviceChoiceAmbiguityErrors`)) {
        deviceChoiceAmbiguityErrorsObject <- CSVCell$new()
        deviceChoiceAmbiguityErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$deviceChoiceAmbiguityErrors, auto_unbox = TRUE, null = "null"))
        self$`deviceChoiceAmbiguityErrors` <- deviceChoiceAmbiguityErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedDataErrors`)) {
        duplicatedDataErrorsObject <- CSVCell$new()
        duplicatedDataErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedDataErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedDataErrors` <- duplicatedDataErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedObjectErrors`)) {
        duplicatedObjectErrorsObject <- CSVCell$new()
        duplicatedObjectErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedObjectErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedObjectErrors` <- duplicatedObjectErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedExperimentErrors`)) {
        duplicatedExperimentErrorsObject <- CSVCell$new()
        duplicatedExperimentErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedExperimentErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedExperimentErrors` <- duplicatedExperimentErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`duplicatedDeviceErrors`)) {
        duplicatedDeviceErrorsObject <- CSVCell$new()
        duplicatedDeviceErrorsObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedDeviceErrors, auto_unbox = TRUE, null = "null"))
        self$`duplicatedDeviceErrors` <- duplicatedDeviceErrorsObject
      }
      if (!is.null(DataCSVValidationModelObject$`headers`)) {
        self$`headers` <- DataCSVValidationModelObject$`headers`
      }
      if (!is.null(DataCSVValidationModelObject$`headersLabels`)) {
        self$`headersLabels` <- DataCSVValidationModelObject$`headersLabels`
      }
      if (!is.null(DataCSVValidationModelObject$`nbLinesImported`)) {
        self$`nbLinesImported` <- DataCSVValidationModelObject$`nbLinesImported`
      }
      if (!is.null(DataCSVValidationModelObject$`nbLinesToImport`)) {
        self$`nbLinesToImport` <- DataCSVValidationModelObject$`nbLinesToImport`
      }
      if (!is.null(DataCSVValidationModelObject$`validationStep`)) {
        self$`validationStep` <- DataCSVValidationModelObject$`validationStep`
      }
      if (!is.null(DataCSVValidationModelObject$`insertionStep`)) {
        self$`insertionStep` <- DataCSVValidationModelObject$`insertionStep`
      }
      if (!is.null(DataCSVValidationModelObject$`validCSV`)) {
        self$`validCSV` <- DataCSVValidationModelObject$`validCSV`
      }
      if (!is.null(DataCSVValidationModelObject$`tooLargeDataset`)) {
        self$`tooLargeDataset` <- DataCSVValidationModelObject$`tooLargeDataset`
      }
      if (!is.null(DataCSVValidationModelObject$`errorMessage`)) {
        self$`errorMessage` <- DataCSVValidationModelObject$`errorMessage`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "missingHeaders": [%s],
           "emptyHeaders": [%s],
           "invalidHeaderURIs": %s,
           "datatypeErrors": %s,
           "uriNotFoundErrors": %s,
           "invalidURIErrors": %s,
           "missingRequiredValueErrors": %s,
           "invalidValueErrors": %s,
           "alreadyExistingURIErrors": %s,
           "duplicateURIErrors": %s,
           "invalidObjectErrors": %s,
           "invalidDateErrors": %s,
           "invalidDataTypeErrors": %s,
           "invalidExperimentErrors": %s,
           "invalidDeviceErrors": %s,
           "deviceChoiceAmbiguityErrors": %s,
           "duplicatedDataErrors": %s,
           "duplicatedObjectErrors": %s,
           "duplicatedExperimentErrors": %s,
           "duplicatedDeviceErrors": %s,
           "headers": [%s],
           "headersLabels": [%s],
           "nbLinesImported": %s,
           "nbLinesToImport": %s,
           "validationStep": %s,
           "insertionStep": %s,
           "validCSV": %s,
           "tooLargeDataset": %s,
           "errorMessage": %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"),
        jsonlite::toJSON(self$`invalidObjectErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`invalidDateErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`invalidDataTypeErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`invalidExperimentErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`invalidDeviceErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`deviceChoiceAmbiguityErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`duplicatedDataErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`duplicatedObjectErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`duplicatedExperimentErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`duplicatedDeviceErrors`$toJSON(),auto_unbox=TRUE, null = "null"),
        ifelse(is.null(self$`headers`) || length(self$`headers`) == 0, "" ,lapply(self$`headers`, function(x) paste(paste0('"', x, '"'), sep=","))),
        ifelse(is.null(self$`headersLabels`) || length(self$`headersLabels`) == 0, "" ,lapply(self$`headersLabels`, function(x) paste(paste0('"', x, '"'), sep=","))),
        ifelse(is.null(self$`nbLinesImported`), "null",as.numeric(jsonlite::toJSON(self$`nbLinesImported`,auto_unbox=TRUE, null = "null"))),
        ifelse(is.null(self$`nbLinesToImport`), "null",as.numeric(jsonlite::toJSON(self$`nbLinesToImport`,auto_unbox=TRUE, null = "null"))),
        ifelse(is.null(self$`validationStep`), "null",jsonlite::toJSON(self$`validationStep`,auto_unbox=TRUE, null = "null")),
        ifelse(is.null(self$`insertionStep`), "null",jsonlite::toJSON(self$`insertionStep`,auto_unbox=TRUE, null = "null")),
        ifelse(is.null(self$`validCSV`), "null",jsonlite::toJSON(self$`validCSV`,auto_unbox=TRUE, null = "null")),
        ifelse(is.null(self$`tooLargeDataset`), "null",jsonlite::toJSON(self$`tooLargeDataset`,auto_unbox=TRUE, null = "null")),
        ifelse(is.null(self$`errorMessage`), "null",jsonlite::toJSON(self$`errorMessage`,auto_unbox=TRUE, null = "null"))
      )
    },
    fromJSONString = function(DataCSVValidationModelJson) {
      DataCSVValidationModelObject <- jsonlite::fromJSON(DataCSVValidationModelJson)
      self$`missingHeaders` <- DataCSVValidationModelObject$`missingHeaders`
      self$`emptyHeaders` <- DataCSVValidationModelObject$`emptyHeaders`
      self$`invalidHeaderURIs` <- DataCSVValidationModelObject$`invalidHeaderURIs`
      CSVDatatypeErrorObject <- CSVDatatypeError$new()
      self$`datatypeErrors` <- CSVDatatypeErrorObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$datatypeErrors, auto_unbox = TRUE))
      CSVURINotFoundErrorObject <- CSVURINotFoundError$new()
      self$`uriNotFoundErrors` <- CSVURINotFoundErrorObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$uriNotFoundErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidURIErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidURIErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`missingRequiredValueErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$missingRequiredValueErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidValueErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidValueErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`alreadyExistingURIErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$alreadyExistingURIErrors, auto_unbox = TRUE))
      CSVDuplicateURIErrorObject <- CSVDuplicateURIError$new()
      self$`duplicateURIErrors` <- CSVDuplicateURIErrorObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicateURIErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidObjectErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidObjectErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidDateErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDateErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidDataTypeErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDataTypeErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidExperimentErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidExperimentErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`invalidDeviceErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$invalidDeviceErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`deviceChoiceAmbiguityErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$deviceChoiceAmbiguityErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`duplicatedDataErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedDataErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`duplicatedObjectErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedObjectErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`duplicatedExperimentErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedExperimentErrors, auto_unbox = TRUE))
      CSVCellObject <- CSVCell$new()
      self$`duplicatedDeviceErrors` <- CSVCellObject$fromJSON(jsonlite::toJSON(DataCSVValidationModelObject$duplicatedDeviceErrors, auto_unbox = TRUE))
      self$`headers` <- DataCSVValidationModelObject$`headers`
      self$`headersLabels` <- DataCSVValidationModelObject$`headersLabels`
      self$`nbLinesImported` <- DataCSVValidationModelObject$`nbLinesImported`
      self$`nbLinesToImport` <- DataCSVValidationModelObject$`nbLinesToImport`
      self$`validationStep` <- DataCSVValidationModelObject$`validationStep`
      self$`insertionStep` <- DataCSVValidationModelObject$`insertionStep`
      self$`validCSV` <- DataCSVValidationModelObject$`validCSV`
      self$`tooLargeDataset` <- DataCSVValidationModelObject$`tooLargeDataset`
      self$`errorMessage` <- DataCSVValidationModelObject$`errorMessage`
    }
  )
)