R/Application.r

In deardooley/agave-rlang-sdk: Agave Platform client SDK for R

# Agave Platform Science API
#
# Power your digital lab and reduce the time from theory to discovery using the Agave Science-as-a-Service API Platform. Agave provides hosted services that allow researchers to manage data, conduct experiments, and publish and share results from anywhere at any time.
#
# Agave Platform version: 2.2.14
# 
# Generated by: https://github.com/swagger-api/swagger-codegen.git


#' Application Class
#'
#' Applications are a self-describing representation of an executable software item. See the <a href=\"http://agaveapi.co/documentation/tutorials/app-management-tutorial/\">App Management Tutorial</a> for more information.
#'
#' @field available Whether the application is available.
#' @field checkpointable Whether the application supports checkpointing.
#' @field defaultMaxRunTime The max execution time that should be used if none is given in a job description. Ignore if the system does not support schedulers.
#' @field defaultMemoryPerNode The default memory in GB to pass to the scheduler if none is given in the job description. This must be less than the max memory parameter in the target queue definition.
#' @field defaultNodeCount The number of nodes that should be used if none is given in a job description. Ignore if the system does not support schedulers.
#' @field defaultProcessorsPerNode The number of processors to pass to the scheduler if none are given in the job description. This must be 1 if the app is serial.
#' @field defaultQueue The queue on the execution system that should be used if none is given in a job description. Ignore if the system does not support schedulers.
#' @field deploymentPath The location in default storage system containing the application wrapper and dependencies of the user
#' @field deploymentSystem The system id of the storage system where this app should run.
#' @field executionSystem The system id of the execution system where this app should run.
#' @field executionType The execution type of the application. If you're unsure, it's probably HPC.
#' @field helpURI The URL where users can go for more information about the app.
#' @field id Unique id of this app. Comprised of the app name-version.
#' @field icon The icon to associate with this app.
#' @field inputs The inputs files for this application. 
#' @field label The label to use when generating forms.
#' @field lastModified The date this application was last modified in ISO 8601 format.
#' @field longDescription The full text description of this input to use when generating forms.
#' @field modules An array of modules to load prior to the execution of the application.
#' @field name The name of the application. The name does not have to be unique, but the combination of name and version does.
#' @field ontology An array of ontology values describing this application.
#' @field outputs The outputs files for this application. 
#' @field parallelism The parallelism type of the application. If you're unsure, it's probably SERIAL.
#' @field parameters The inputs parameters for this application. 
#' @field isPublic Whether the application is public or private.
#' @field revision The number of times this application has been revised.
#' @field shortDescription The short description of this application.
#' @field tags An array of tags related to this application.
#' @field templatePath The path to the wrapper script relative to the deploymentPath.
#' @field testPath The path to the test script relative to the deploymentPath.
#' @field uuid The UUID of this application. UUID are 36 alphanumeric string.
#' @field version The version of the application in #.#.# format. While the version does not need to be unique, the combination of name and version does have to be unique.
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
Application <- R6::R6Class(
  'Application',
  public = list(
    `available` = NULL,
    `checkpointable` = NULL,
    `defaultMaxRunTime` = NULL,
    `defaultMemoryPerNode` = NULL,
    `defaultNodeCount` = NULL,
    `defaultProcessorsPerNode` = NULL,
    `defaultQueue` = NULL,
    `deploymentPath` = NULL,
    `deploymentSystem` = NULL,
    `executionSystem` = NULL,
    `executionType` = NULL,
    `helpURI` = NULL,
    `id` = NULL,
    `icon` = NULL,
    `inputs` = NULL,
    `label` = NULL,
    `lastModified` = NULL,
    `longDescription` = NULL,
    `modules` = NULL,
    `name` = NULL,
    `ontology` = NULL,
    `outputs` = NULL,
    `parallelism` = NULL,
    `parameters` = NULL,
    `isPublic` = NULL,
    `revision` = NULL,
    `shortDescription` = NULL,
    `tags` = NULL,
    `templatePath` = NULL,
    `testPath` = NULL,
    `uuid` = NULL,
    `version` = NULL,
    initialize = function(`available`, `checkpointable`, `defaultMaxRunTime`, `defaultMemoryPerNode`, `defaultNodeCount`, `defaultProcessorsPerNode`, `defaultQueue`, `deploymentPath`, `deploymentSystem`, `executionSystem`, `executionType`, `helpURI`, `id`, `icon`, `inputs`, `label`, `lastModified`, `longDescription`, `modules`, `name`, `ontology`, `outputs`, `parallelism`, `parameters`, `isPublic`, `revision`, `shortDescription`, `tags`, `templatePath`, `testPath`, `uuid`, `version`){
      if (!missing(`available`)) {
        stopifnot(is.character(`available`), length(`available`) == 1)
        self$`available` <- `available`
      }
      if (!missing(`checkpointable`)) {
        stopifnot(is.character(`checkpointable`), length(`checkpointable`) == 1)
        self$`checkpointable` <- `checkpointable`
      }
      if (!missing(`defaultMaxRunTime`)) {
        stopifnot(is.character(`defaultMaxRunTime`), length(`defaultMaxRunTime`) == 1)
        self$`defaultMaxRunTime` <- `defaultMaxRunTime`
      }
      if (!missing(`defaultMemoryPerNode`)) {
        stopifnot(is.character(`defaultMemoryPerNode`), length(`defaultMemoryPerNode`) == 1)
        self$`defaultMemoryPerNode` <- `defaultMemoryPerNode`
      }
      if (!missing(`defaultNodeCount`)) {
        stopifnot(is.character(`defaultNodeCount`), length(`defaultNodeCount`) == 1)
        self$`defaultNodeCount` <- `defaultNodeCount`
      }
      if (!missing(`defaultProcessorsPerNode`)) {
        stopifnot(is.character(`defaultProcessorsPerNode`), length(`defaultProcessorsPerNode`) == 1)
        self$`defaultProcessorsPerNode` <- `defaultProcessorsPerNode`
      }
      if (!missing(`defaultQueue`)) {
        stopifnot(is.character(`defaultQueue`), length(`defaultQueue`) == 1)
        self$`defaultQueue` <- `defaultQueue`
      }
      if (!missing(`deploymentPath`)) {
        stopifnot(is.character(`deploymentPath`), length(`deploymentPath`) == 1)
        self$`deploymentPath` <- `deploymentPath`
      }
      if (!missing(`deploymentSystem`)) {
        stopifnot(is.character(`deploymentSystem`), length(`deploymentSystem`) == 1)
        self$`deploymentSystem` <- `deploymentSystem`
      }
      if (!missing(`executionSystem`)) {
        stopifnot(is.character(`executionSystem`), length(`executionSystem`) == 1)
        self$`executionSystem` <- `executionSystem`
      }
      if (!missing(`executionType`)) {
        stopifnot(is.character(`executionType`), length(`executionType`) == 1)
        self$`executionType` <- `executionType`
      }
      if (!missing(`helpURI`)) {
        stopifnot(is.character(`helpURI`), length(`helpURI`) == 1)
        self$`helpURI` <- `helpURI`
      }
      if (!missing(`id`)) {
        stopifnot(is.character(`id`), length(`id`) == 1)
        self$`id` <- `id`
      }
      if (!missing(`icon`)) {
        stopifnot(is.character(`icon`), length(`icon`) == 1)
        self$`icon` <- `icon`
      }
      if (!missing(`inputs`)) {
        stopifnot(is.character(`inputs`), length(`inputs`) == 1)
        self$`inputs` <- `inputs`
      }
      if (!missing(`label`)) {
        stopifnot(is.character(`label`), length(`label`) == 1)
        self$`label` <- `label`
      }
      if (!missing(`lastModified`)) {
        stopifnot(is.character(`lastModified`), length(`lastModified`) == 1)
        self$`lastModified` <- `lastModified`
      }
      if (!missing(`longDescription`)) {
        stopifnot(is.character(`longDescription`), length(`longDescription`) == 1)
        self$`longDescription` <- `longDescription`
      }
      if (!missing(`modules`)) {
        stopifnot(is.character(`modules`), length(`modules`) == 1)
        self$`modules` <- `modules`
      }
      if (!missing(`name`)) {
        stopifnot(is.character(`name`), length(`name`) == 1)
        self$`name` <- `name`
      }
      if (!missing(`ontology`)) {
        stopifnot(is.character(`ontology`), length(`ontology`) == 1)
        self$`ontology` <- `ontology`
      }
      if (!missing(`outputs`)) {
        stopifnot(is.character(`outputs`), length(`outputs`) == 1)
        self$`outputs` <- `outputs`
      }
      if (!missing(`parallelism`)) {
        stopifnot(is.character(`parallelism`), length(`parallelism`) == 1)
        self$`parallelism` <- `parallelism`
      }
      if (!missing(`parameters`)) {
        stopifnot(is.character(`parameters`), length(`parameters`) == 1)
        self$`parameters` <- `parameters`
      }
      if (!missing(`isPublic`)) {
        stopifnot(is.character(`isPublic`), length(`isPublic`) == 1)
        self$`isPublic` <- `isPublic`
      }
      if (!missing(`revision`)) {
        stopifnot(is.character(`revision`), length(`revision`) == 1)
        self$`revision` <- `revision`
      }
      if (!missing(`shortDescription`)) {
        stopifnot(is.character(`shortDescription`), length(`shortDescription`) == 1)
        self$`shortDescription` <- `shortDescription`
      }
      if (!missing(`tags`)) {
        stopifnot(is.character(`tags`), length(`tags`) == 1)
        self$`tags` <- `tags`
      }
      if (!missing(`templatePath`)) {
        stopifnot(is.character(`templatePath`), length(`templatePath`) == 1)
        self$`templatePath` <- `templatePath`
      }
      if (!missing(`testPath`)) {
        stopifnot(is.character(`testPath`), length(`testPath`) == 1)
        self$`testPath` <- `testPath`
      }
      if (!missing(`uuid`)) {
        stopifnot(is.character(`uuid`), length(`uuid`) == 1)
        self$`uuid` <- `uuid`
      }
      if (!missing(`version`)) {
        stopifnot(is.character(`version`), length(`version`) == 1)
        self$`version` <- `version`
      }
    },
    asJSON = function() {
      self$toJSON()
    },
    toJSON = function() {
      ApplicationObject <- list()
      if (!is.null(self$`available`)) {
        ApplicationObject[['available']] <- self$`available`
      }
      else {
        ApplicationObject[['available']] <- NULL
      }
      if (!is.null(self$`checkpointable`)) {
        ApplicationObject[['checkpointable']] <- self$`checkpointable`
      }
      else {
        ApplicationObject[['checkpointable']] <- NULL
      }
      if (!is.null(self$`defaultMaxRunTime`)) {
        ApplicationObject[['defaultMaxRunTime']] <- self$`defaultMaxRunTime`
      }
      else {
        ApplicationObject[['defaultMaxRunTime']] <- NULL
      }
      if (!is.null(self$`defaultMemoryPerNode`)) {
        ApplicationObject[['defaultMemoryPerNode']] <- self$`defaultMemoryPerNode`
      }
      else {
        ApplicationObject[['defaultMemoryPerNode']] <- NULL
      }
      if (!is.null(self$`defaultNodeCount`)) {
        ApplicationObject[['defaultNodeCount']] <- self$`defaultNodeCount`
      }
      else {
        ApplicationObject[['defaultNodeCount']] <- NULL
      }
      if (!is.null(self$`defaultProcessorsPerNode`)) {
        ApplicationObject[['defaultProcessorsPerNode']] <- self$`defaultProcessorsPerNode`
      }
      else {
        ApplicationObject[['defaultProcessorsPerNode']] <- NULL
      }
      if (!is.null(self$`defaultQueue`)) {
        ApplicationObject[['defaultQueue']] <- self$`defaultQueue`
      }
      else {
        ApplicationObject[['defaultQueue']] <- NULL
      }
      if (!is.null(self$`deploymentPath`)) {
        ApplicationObject[['deploymentPath']] <- self$`deploymentPath`
      }
      else {
        ApplicationObject[['deploymentPath']] <- NULL
      }
      if (!is.null(self$`deploymentSystem`)) {
        ApplicationObject[['deploymentSystem']] <- self$`deploymentSystem`
      }
      else {
        ApplicationObject[['deploymentSystem']] <- NULL
      }
      if (!is.null(self$`executionSystem`)) {
        ApplicationObject[['executionSystem']] <- self$`executionSystem`
      }
      else {
        ApplicationObject[['executionSystem']] <- NULL
      }
      if (!is.null(self$`executionType`)) {
        ApplicationObject[['executionType']] <- self$`executionType`
      }
      else {
        ApplicationObject[['executionType']] <- NULL
      }
      if (!is.null(self$`helpURI`)) {
        ApplicationObject[['helpURI']] <- self$`helpURI`
      }
      else {
        ApplicationObject[['helpURI']] <- NULL
      }
      if (!is.null(self$`id`)) {
        ApplicationObject[['id']] <- self$`id`
      }
      else {
        ApplicationObject[['id']] <- NULL
      }
      if (!is.null(self$`icon`)) {
        ApplicationObject[['icon']] <- self$`icon`
      }
      else {
        ApplicationObject[['icon']] <- NULL
      }
      if (!is.null(self$`inputs`)) {
        ApplicationObject[['inputs']] <- self$`inputs`
      }
      else {
        ApplicationObject[['inputs']] <- NULL
      }
      if (!is.null(self$`label`)) {
        ApplicationObject[['label']] <- self$`label`
      }
      else {
        ApplicationObject[['label']] <- NULL
      }
      if (!is.null(self$`lastModified`)) {
        ApplicationObject[['lastModified']] <- self$`lastModified`
      }
      else {
        ApplicationObject[['lastModified']] <- NULL
      }
      if (!is.null(self$`longDescription`)) {
        ApplicationObject[['longDescription']] <- self$`longDescription`
      }
      else {
        ApplicationObject[['longDescription']] <- NULL
      }
      if (!is.null(self$`modules`)) {
        ApplicationObject[['modules']] <- self$`modules`
      }
      else {
        ApplicationObject[['modules']] <- NULL
      }
      if (!is.null(self$`name`)) {
        ApplicationObject[['name']] <- self$`name`
      }
      else {
        ApplicationObject[['name']] <- NULL
      }
      if (!is.null(self$`ontology`)) {
        ApplicationObject[['ontology']] <- self$`ontology`
      }
      else {
        ApplicationObject[['ontology']] <- NULL
      }
      if (!is.null(self$`outputs`)) {
        ApplicationObject[['outputs']] <- self$`outputs`
      }
      else {
        ApplicationObject[['outputs']] <- NULL
      }
      if (!is.null(self$`parallelism`)) {
        ApplicationObject[['parallelism']] <- self$`parallelism`
      }
      else {
        ApplicationObject[['parallelism']] <- NULL
      }
      if (!is.null(self$`parameters`)) {
        ApplicationObject[['parameters']] <- self$`parameters`
      }
      else {
        ApplicationObject[['parameters']] <- NULL
      }
      if (!is.null(self$`isPublic`)) {
        ApplicationObject[['isPublic']] <- self$`isPublic`
      }
      else {
        ApplicationObject[['isPublic']] <- NULL
      }
      if (!is.null(self$`revision`)) {
        ApplicationObject[['revision']] <- self$`revision`
      }
      else {
        ApplicationObject[['revision']] <- NULL
      }
      if (!is.null(self$`shortDescription`)) {
        ApplicationObject[['shortDescription']] <- self$`shortDescription`
      }
      else {
        ApplicationObject[['shortDescription']] <- NULL
      }
      if (!is.null(self$`tags`)) {
        ApplicationObject[['tags']] <- self$`tags`
      }
      else {
        ApplicationObject[['tags']] <- NULL
      }
      if (!is.null(self$`templatePath`)) {
        ApplicationObject[['templatePath']] <- self$`templatePath`
      }
      else {
        ApplicationObject[['templatePath']] <- NULL
      }
      if (!is.null(self$`testPath`)) {
        ApplicationObject[['testPath']] <- self$`testPath`
      }
      else {
        ApplicationObject[['testPath']] <- NULL
      }
      if (!is.null(self$`uuid`)) {
        ApplicationObject[['uuid']] <- self$`uuid`
      }
      else {
        ApplicationObject[['uuid']] <- NULL
      }
      if (!is.null(self$`version`)) {
        ApplicationObject[['version']] <- self$`version`
      }
      else {
        ApplicationObject[['version']] <- NULL
      }

      ApplicationObject
    },
    fromJSON = function(ApplicationObject) {
      if (is.character(ApplicationObject)) {
        ApplicationObject <- jsonlite::fromJSON(ApplicationJson)
      }

      if ("result" %in% names(ApplicationObject)) {
        ApplicationObject <- ApplicationObject$result
      }

      if (!is.null(ApplicationObject$`available`)) {
        self$`available` <- ApplicationObject$`available`
      }
      if (!is.null(ApplicationObject$`checkpointable`)) {
        self$`checkpointable` <- ApplicationObject$`checkpointable`
      }
      if (!is.null(ApplicationObject$`defaultMaxRunTime`)) {
        self$`defaultMaxRunTime` <- ApplicationObject$`defaultMaxRunTime`
      }
      if (!is.null(ApplicationObject$`defaultMemoryPerNode`)) {
        self$`defaultMemoryPerNode` <- ApplicationObject$`defaultMemoryPerNode`
      }
      if (!is.null(ApplicationObject$`defaultNodeCount`)) {
        self$`defaultNodeCount` <- ApplicationObject$`defaultNodeCount`
      }
      if (!is.null(ApplicationObject$`defaultProcessorsPerNode`)) {
        self$`defaultProcessorsPerNode` <- ApplicationObject$`defaultProcessorsPerNode`
      }
      if (!is.null(ApplicationObject$`defaultQueue`)) {
        self$`defaultQueue` <- ApplicationObject$`defaultQueue`
      }
      if (!is.null(ApplicationObject$`deploymentPath`)) {
        self$`deploymentPath` <- ApplicationObject$`deploymentPath`
      }
      if (!is.null(ApplicationObject$`deploymentSystem`)) {
        self$`deploymentSystem` <- ApplicationObject$`deploymentSystem`
      }
      if (!is.null(ApplicationObject$`executionSystem`)) {
        self$`executionSystem` <- ApplicationObject$`executionSystem`
      }
      if (!is.null(ApplicationObject$`executionType`)) {
        self$`executionType` <- ApplicationObject$`executionType`
      }
      if (!is.null(ApplicationObject$`helpURI`)) {
        self$`helpURI` <- ApplicationObject$`helpURI`
      }
      if (!is.null(ApplicationObject$`id`)) {
        self$`id` <- ApplicationObject$`id`
      }
      if (!is.null(ApplicationObject$`icon`)) {
        self$`icon` <- ApplicationObject$`icon`
      }
      if (!is.null(ApplicationObject$`inputs`)) {
        self$`inputs` <- ApplicationObject$`inputs`
      }
      if (!is.null(ApplicationObject$`label`)) {
        self$`label` <- ApplicationObject$`label`
      }
      if (!is.null(ApplicationObject$`lastModified`)) {
        self$`lastModified` <- ApplicationObject$`lastModified`
      }
      if (!is.null(ApplicationObject$`longDescription`)) {
        self$`longDescription` <- ApplicationObject$`longDescription`
      }
      if (!is.null(ApplicationObject$`modules`)) {
        self$`modules` <- ApplicationObject$`modules`
      }
      if (!is.null(ApplicationObject$`name`)) {
        self$`name` <- ApplicationObject$`name`
      }
      if (!is.null(ApplicationObject$`ontology`)) {
        self$`ontology` <- ApplicationObject$`ontology`
      }
      if (!is.null(ApplicationObject$`outputs`)) {
        self$`outputs` <- ApplicationObject$`outputs`
      }
      if (!is.null(ApplicationObject$`parallelism`)) {
        self$`parallelism` <- ApplicationObject$`parallelism`
      }
      if (!is.null(ApplicationObject$`parameters`)) {
        self$`parameters` <- ApplicationObject$`parameters`
      }
      if (!is.null(ApplicationObject$`isPublic`)) {
        self$`isPublic` <- ApplicationObject$`isPublic`
      }
      if (!is.null(ApplicationObject$`revision`)) {
        self$`revision` <- ApplicationObject$`revision`
      }
      if (!is.null(ApplicationObject$`shortDescription`)) {
        self$`shortDescription` <- ApplicationObject$`shortDescription`
      }
      if (!is.null(ApplicationObject$`tags`)) {
        self$`tags` <- ApplicationObject$`tags`
      }
      if (!is.null(ApplicationObject$`templatePath`)) {
        self$`templatePath` <- ApplicationObject$`templatePath`
      }
      if (!is.null(ApplicationObject$`testPath`)) {
        self$`testPath` <- ApplicationObject$`testPath`
      }
      if (!is.null(ApplicationObject$`uuid`)) {
        self$`uuid` <- ApplicationObject$`uuid`
      }
      if (!is.null(ApplicationObject$`version`)) {
        self$`version` <- ApplicationObject$`version`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "available": %s,
           "checkpointable": %s,
           "defaultMaxRunTime": %s,
           "defaultMemoryPerNode": %s,
           "defaultNodeCount": %s,
           "defaultProcessorsPerNode": %s,
           "defaultQueue": %s,
           "deploymentPath": %s,
           "deploymentSystem": %s,
           "executionSystem": %s,
           "executionType": %s,
           "helpURI": %s,
           "id": %s,
           "icon": %s,
           "inputs": %s,
           "label": %s,
           "lastModified": %s,
           "longDescription": %s,
           "modules": %s,
           "name": %s,
           "ontology": %s,
           "outputs": %s,
           "parallelism": %s,
           "parameters": %s,
           "isPublic": %s,
           "revision": %s,
           "shortDescription": %s,
           "tags": %s,
           "templatePath": %s,
           "testPath": %s,
           "uuid": %s,
           "version": %s
        }',
        ifelse( is.null(self$`available`),"null",paste0(c('"', self$`available`, '"'))),
        ifelse( is.null(self$`checkpointable`),"null",paste0(c('"', self$`checkpointable`, '"'))),
        ifelse( is.null(self$`defaultMaxRunTime`),"null",paste0(c('"', self$`defaultMaxRunTime`, '"'))),
        ifelse( is.null(self$`defaultMemoryPerNode`),"null",paste0(c('"', self$`defaultMemoryPerNode`, '"'))),
        ifelse( is.null(self$`defaultNodeCount`),"null",paste0(c('"', self$`defaultNodeCount`, '"'))),
        ifelse( is.null(self$`defaultProcessorsPerNode`),"null",paste0(c('"', self$`defaultProcessorsPerNode`, '"'))),
        ifelse( is.null(self$`defaultQueue`),"null",paste0(c('"', self$`defaultQueue`, '"'))),
        ifelse( is.null(self$`deploymentPath`),"null",paste0(c('"', self$`deploymentPath`, '"'))),
        ifelse( is.null(self$`deploymentSystem`),"null",paste0(c('"', self$`deploymentSystem`, '"'))),
        ifelse( is.null(self$`executionSystem`),"null",paste0(c('"', self$`executionSystem`, '"'))),
        ifelse( is.null(self$`executionType`),"null",paste0(c('"', self$`executionType`, '"'))),
        ifelse( is.null(self$`helpURI`),"null",paste0(c('"', self$`helpURI`, '"'))),
        ifelse( is.null(self$`id`),"null",paste0(c('"', self$`id`, '"'))),
        ifelse( is.null(self$`icon`),"null",paste0(c('"', self$`icon`, '"'))),
        ifelse( is.null(self$`inputs`),"null",paste0(c('"', self$`inputs`, '"'))),
        ifelse( is.null(self$`label`),"null",paste0(c('"', self$`label`, '"'))),
        ifelse( is.null(self$`lastModified`),"null",paste0(c('"', self$`lastModified`, '"'))),
        ifelse( is.null(self$`longDescription`),"null",paste0(c('"', self$`longDescription`, '"'))),
        ifelse( is.null(self$`modules`),"null",paste0(c('"', self$`modules`, '"'))),
        ifelse( is.null(self$`name`),"null",paste0(c('"', self$`name`, '"'))),
        ifelse( is.null(self$`ontology`),"null",paste0(c('"', self$`ontology`, '"'))),
        ifelse( is.null(self$`outputs`),"null",paste0(c('"', self$`outputs`, '"'))),
        ifelse( is.null(self$`parallelism`),"null",paste0(c('"', self$`parallelism`, '"'))),
        ifelse( is.null(self$`parameters`),"null",paste0(c('"', self$`parameters`, '"'))),
        ifelse( is.null(self$`isPublic`),"null",paste0(c('"', self$`isPublic`, '"'))),
        ifelse( is.null(self$`revision`),"null",paste0(c('"', self$`revision`, '"'))),
        ifelse( is.null(self$`shortDescription`),"null",paste0(c('"', self$`shortDescription`, '"'))),
        ifelse( is.null(self$`tags`),"null",paste0(c('"', self$`tags`, '"'))),
        ifelse( is.null(self$`templatePath`),"null",paste0(c('"', self$`templatePath`, '"'))),
        ifelse( is.null(self$`testPath`),"null",paste0(c('"', self$`testPath`, '"'))),
        ifelse( is.null(self$`uuid`),"null",paste0(c('"', self$`uuid`, '"'))),
        ifelse( is.null(self$`version`),"null",paste0(c('"', self$`version`, '"')))
      )
    },
    fromJSONString = function(ApplicationJson) {
      ApplicationObject <- jsonlite::fromJSON(ApplicationJson)
      self::fromJSON(ApplicationObject)

    }
  )
)