tldbclr: TileDB Cloud Platform R Client Package

# TileDB Storage Platform API
#
# TileDB Storage Platform REST API
#
# The version of the OpenAPI document: 2.2.19
# 
# Generated by: https://openapi-generator.tech

#' @docType class
#' @title ArrayTask
#'
#' @description ArrayTask Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field id  character [optional]
#'
#' @field name  character [optional]
#'
#' @field description  character [optional]
#'
#' @field array_metadata  \link{ArrayInfo} [optional]
#'
#' @field subarray  \link{DomainArray} [optional]
#'
#' @field memory  integer [optional]
#'
#' @field cpu  integer [optional]
#'
#' @field namespace  character [optional]
#'
#' @field status  \link{ArrayTaskStatus} [optional]
#'
#' @field start_time  character [optional]
#'
#' @field finish_time  character [optional]
#'
#' @field cost  numeric [optional]
#'
#' @field egress_cost  numeric [optional]
#'
#' @field access_cost  numeric [optional]
#'
#' @field query_type  \link{Querytype} [optional]
#'
#' @field udf_code  character [optional]
#'
#' @field udf_language  character [optional]
#'
#' @field sql_query  character [optional]
#'
#' @field type  \link{ArrayTaskType} [optional]
#'
#' @field activity  list( \link{ArrayActivityLog} ) [optional]
#'
#' @field logs  character [optional]
#'
#' @field duration  numeric [optional]
#'
#' @field sql_init_commands  list( character ) [optional]
#'
#' @field sql_parameters  list( object ) [optional]
#'
#' @field result_format  \link{ResultFormat} [optional]
#'
#' @field task_graph_uuid  character [optional]
#'
#' @field client_node_uuid  character [optional]
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
ArrayTask <- R6::R6Class(
  'ArrayTask',
  public = list(
    `id` = NULL,
    `name` = NULL,
    `description` = NULL,
    `array_metadata` = NULL,
    `subarray` = NULL,
    `memory` = NULL,
    `cpu` = NULL,
    `namespace` = NULL,
    `status` = NULL,
    `start_time` = NULL,
    `finish_time` = NULL,
    `cost` = NULL,
    `egress_cost` = NULL,
    `access_cost` = NULL,
    `query_type` = NULL,
    `udf_code` = NULL,
    `udf_language` = NULL,
    `sql_query` = NULL,
    `type` = NULL,
    `activity` = NULL,
    `logs` = NULL,
    `duration` = NULL,
    `sql_init_commands` = NULL,
    `sql_parameters` = NULL,
    `result_format` = NULL,
    `task_graph_uuid` = NULL,
    `client_node_uuid` = NULL,
    initialize = function(
        `id`=NULL, `name`=NULL, `description`=NULL, `array_metadata`=NULL, `subarray`=NULL, `memory`=NULL, `cpu`=NULL, `namespace`=NULL, `status`=NULL, `start_time`=NULL, `finish_time`=NULL, `cost`=NULL, `egress_cost`=NULL, `access_cost`=NULL, `query_type`=NULL, `udf_code`=NULL, `udf_language`=NULL, `sql_query`=NULL, `type`=NULL, `activity`=NULL, `logs`=NULL, `duration`=NULL, `sql_init_commands`=NULL, `sql_parameters`=NULL, `result_format`=NULL, `task_graph_uuid`=NULL, `client_node_uuid`=NULL, ...
    ) {
      local.optional.var <- list(...)
      if (!is.null(`id`)) {
        stopifnot(is.character(`id`), length(`id`) == 1)
        self$`id` <- `id`
      }
      if (!is.null(`name`)) {
        stopifnot(is.character(`name`), length(`name`) == 1)
        self$`name` <- `name`
      }
      if (!is.null(`description`)) {
        stopifnot(is.character(`description`), length(`description`) == 1)
        self$`description` <- `description`
      }
      if (!is.null(`array_metadata`)) {
        stopifnot(R6::is.R6(`array_metadata`))
        self$`array_metadata` <- `array_metadata`
      }
      if (!is.null(`subarray`)) {
        stopifnot(R6::is.R6(`subarray`))
        self$`subarray` <- `subarray`
      }
      if (!is.null(`memory`)) {
        stopifnot(is.numeric(`memory`), length(`memory`) == 1)
        self$`memory` <- `memory`
      }
      if (!is.null(`cpu`)) {
        stopifnot(is.numeric(`cpu`), length(`cpu`) == 1)
        self$`cpu` <- `cpu`
      }
      if (!is.null(`namespace`)) {
        stopifnot(is.character(`namespace`), length(`namespace`) == 1)
        self$`namespace` <- `namespace`
      }
      if (!is.null(`status`)) {
        stopifnot(R6::is.R6(`status`))
        self$`status` <- `status`
      }
      if (!is.null(`start_time`)) {
        stopifnot(is.character(`start_time`), length(`start_time`) == 1)
        self$`start_time` <- `start_time`
      }
      if (!is.null(`finish_time`)) {
        stopifnot(is.character(`finish_time`), length(`finish_time`) == 1)
        self$`finish_time` <- `finish_time`
      }
      if (!is.null(`cost`)) {
        stopifnot(is.numeric(`cost`), length(`cost`) == 1)
        self$`cost` <- `cost`
      }
      if (!is.null(`egress_cost`)) {
        stopifnot(is.numeric(`egress_cost`), length(`egress_cost`) == 1)
        self$`egress_cost` <- `egress_cost`
      }
      if (!is.null(`access_cost`)) {
        stopifnot(is.numeric(`access_cost`), length(`access_cost`) == 1)
        self$`access_cost` <- `access_cost`
      }
      if (!is.null(`query_type`)) {
        stopifnot(R6::is.R6(`query_type`))
        self$`query_type` <- `query_type`
      }
      if (!is.null(`udf_code`)) {
        stopifnot(is.character(`udf_code`), length(`udf_code`) == 1)
        self$`udf_code` <- `udf_code`
      }
      if (!is.null(`udf_language`)) {
        stopifnot(is.character(`udf_language`), length(`udf_language`) == 1)
        self$`udf_language` <- `udf_language`
      }
      if (!is.null(`sql_query`)) {
        stopifnot(is.character(`sql_query`), length(`sql_query`) == 1)
        self$`sql_query` <- `sql_query`
      }
      if (!is.null(`type`)) {
        stopifnot(R6::is.R6(`type`))
        self$`type` <- `type`
      }
      if (!is.null(`activity`)) {
        stopifnot(is.vector(`activity`), length(`activity`) != 0)
        sapply(`activity`, function(x) stopifnot(R6::is.R6(x)))
        self$`activity` <- `activity`
      }
      if (!is.null(`logs`)) {
        stopifnot(is.character(`logs`), length(`logs`) == 1)
        self$`logs` <- `logs`
      }
      if (!is.null(`duration`)) {
        self$`duration` <- `duration`
      }
      if (!is.null(`sql_init_commands`)) {
        stopifnot(is.vector(`sql_init_commands`), length(`sql_init_commands`) != 0)
        sapply(`sql_init_commands`, function(x) stopifnot(is.character(x)))
        self$`sql_init_commands` <- `sql_init_commands`
      }
      if (!is.null(`sql_parameters`)) {
        stopifnot(is.vector(`sql_parameters`), length(`sql_parameters`) != 0)
        sapply(`sql_parameters`, function(x) stopifnot(is.character(x)))
        self$`sql_parameters` <- `sql_parameters`
      }
      if (!is.null(`result_format`)) {
        stopifnot(R6::is.R6(`result_format`))
        self$`result_format` <- `result_format`
      }
      if (!is.null(`task_graph_uuid`)) {
        stopifnot(is.character(`task_graph_uuid`), length(`task_graph_uuid`) == 1)
        self$`task_graph_uuid` <- `task_graph_uuid`
      }
      if (!is.null(`client_node_uuid`)) {
        stopifnot(is.character(`client_node_uuid`), length(`client_node_uuid`) == 1)
        self$`client_node_uuid` <- `client_node_uuid`
      }
    },
    toJSON = function() {
      ArrayTaskObject <- list()
      if (!is.null(self$`id`)) {
        ArrayTaskObject[['id']] <-
          self$`id`
      }
      if (!is.null(self$`name`)) {
        ArrayTaskObject[['name']] <-
          self$`name`
      }
      if (!is.null(self$`description`)) {
        ArrayTaskObject[['description']] <-
          self$`description`
      }
      if (!is.null(self$`array_metadata`)) {
        ArrayTaskObject[['array_metadata']] <-
          self$`array_metadata`$toJSON()
      }
      if (!is.null(self$`subarray`)) {
        ArrayTaskObject[['subarray']] <-
          self$`subarray`$toJSON()
      }
      if (!is.null(self$`memory`)) {
        ArrayTaskObject[['memory']] <-
          self$`memory`
      }
      if (!is.null(self$`cpu`)) {
        ArrayTaskObject[['cpu']] <-
          self$`cpu`
      }
      if (!is.null(self$`namespace`)) {
        ArrayTaskObject[['namespace']] <-
          self$`namespace`
      }
      if (!is.null(self$`status`)) {
        ArrayTaskObject[['status']] <-
          self$`status`$toJSON()
      }
      if (!is.null(self$`start_time`)) {
        ArrayTaskObject[['start_time']] <-
          self$`start_time`
      }
      if (!is.null(self$`finish_time`)) {
        ArrayTaskObject[['finish_time']] <-
          self$`finish_time`
      }
      if (!is.null(self$`cost`)) {
        ArrayTaskObject[['cost']] <-
          self$`cost`
      }
      if (!is.null(self$`egress_cost`)) {
        ArrayTaskObject[['egress_cost']] <-
          self$`egress_cost`
      }
      if (!is.null(self$`access_cost`)) {
        ArrayTaskObject[['access_cost']] <-
          self$`access_cost`
      }
      if (!is.null(self$`query_type`)) {
        ArrayTaskObject[['query_type']] <-
          self$`query_type`$toJSON()
      }
      if (!is.null(self$`udf_code`)) {
        ArrayTaskObject[['udf_code']] <-
          self$`udf_code`
      }
      if (!is.null(self$`udf_language`)) {
        ArrayTaskObject[['udf_language']] <-
          self$`udf_language`
      }
      if (!is.null(self$`sql_query`)) {
        ArrayTaskObject[['sql_query']] <-
          self$`sql_query`
      }
      if (!is.null(self$`type`)) {
        ArrayTaskObject[['type']] <-
          self$`type`$toJSON()
      }
      if (!is.null(self$`activity`)) {
        ArrayTaskObject[['activity']] <-
          lapply(self$`activity`, function(x) x$toJSON())
      }
      if (!is.null(self$`logs`)) {
        ArrayTaskObject[['logs']] <-
          self$`logs`
      }
      if (!is.null(self$`duration`)) {
        ArrayTaskObject[['duration']] <-
          self$`duration`
      }
      if (!is.null(self$`sql_init_commands`)) {
        ArrayTaskObject[['sql_init_commands']] <-
          self$`sql_init_commands`
      }
      if (!is.null(self$`sql_parameters`)) {
        ArrayTaskObject[['sql_parameters']] <-
          self$`sql_parameters`
      }
      if (!is.null(self$`result_format`)) {
        ArrayTaskObject[['result_format']] <-
          self$`result_format`$toJSON()
      }
      if (!is.null(self$`task_graph_uuid`)) {
        ArrayTaskObject[['task_graph_uuid']] <-
          self$`task_graph_uuid`
      }
      if (!is.null(self$`client_node_uuid`)) {
        ArrayTaskObject[['client_node_uuid']] <-
          self$`client_node_uuid`
      }

      ArrayTaskObject
    },
    fromJSON = function(ArrayTaskJson) {
      ArrayTaskObject <- jsonlite::fromJSON(ArrayTaskJson)
      if (!is.null(ArrayTaskObject$`id`)) {
        self$`id` <- ArrayTaskObject$`id`
      }
      if (!is.null(ArrayTaskObject$`name`)) {
        self$`name` <- ArrayTaskObject$`name`
      }
      if (!is.null(ArrayTaskObject$`description`)) {
        self$`description` <- ArrayTaskObject$`description`
      }
      if (!is.null(ArrayTaskObject$`array_metadata`)) {
        array_metadataObject <- ArrayInfo$new()
        array_metadataObject$fromJSON(jsonlite::toJSON(ArrayTaskObject$array_metadata, auto_unbox = TRUE, digits = NA))
        self$`array_metadata` <- array_metadataObject
      }
      if (!is.null(ArrayTaskObject$`subarray`)) {
        subarrayObject <- DomainArray$new()
        subarrayObject$fromJSON(jsonlite::toJSON(ArrayTaskObject$subarray, auto_unbox = TRUE, digits = NA))
        self$`subarray` <- subarrayObject
      }
      if (!is.null(ArrayTaskObject$`memory`)) {
        self$`memory` <- ArrayTaskObject$`memory`
      }
      if (!is.null(ArrayTaskObject$`cpu`)) {
        self$`cpu` <- ArrayTaskObject$`cpu`
      }
      if (!is.null(ArrayTaskObject$`namespace`)) {
        self$`namespace` <- ArrayTaskObject$`namespace`
      }
      if (!is.null(ArrayTaskObject$`status`)) {
        statusObject <- ArrayTaskStatus$new()
        statusObject$fromJSON(jsonlite::toJSON(ArrayTaskObject$status, auto_unbox = TRUE, digits = NA))
        self$`status` <- statusObject
      }
      if (!is.null(ArrayTaskObject$`start_time`)) {
        self$`start_time` <- ArrayTaskObject$`start_time`
      }
      if (!is.null(ArrayTaskObject$`finish_time`)) {
        self$`finish_time` <- ArrayTaskObject$`finish_time`
      }
      if (!is.null(ArrayTaskObject$`cost`)) {
        self$`cost` <- ArrayTaskObject$`cost`
      }
      if (!is.null(ArrayTaskObject$`egress_cost`)) {
        self$`egress_cost` <- ArrayTaskObject$`egress_cost`
      }
      if (!is.null(ArrayTaskObject$`access_cost`)) {
        self$`access_cost` <- ArrayTaskObject$`access_cost`
      }
      if (!is.null(ArrayTaskObject$`query_type`)) {
        # MANUAL EDIT AFTER OPENAPI AUTOGEN
        # For enums, OpenAPI autogen (1) generates a constructor which requires being called
        # with one arguent; (2) generates callsites (such as here) that calls that constructor
        # with zero arguments.
        #
        #query_typeObject <- Querytype$new()
        #query_typeObject$fromJSON(jsonlite::toJSON(ArrayTaskObject$query_type, auto_unbox = TRUE, digits = NA))
        query_typeObject <- Querytype$new(ArrayTaskObject$query_type)
        self$`query_type` <- query_typeObject
      }
      if (!is.null(ArrayTaskObject$`udf_code`)) {
        self$`udf_code` <- ArrayTaskObject$`udf_code`
      }
      if (!is.null(ArrayTaskObject$`udf_language`)) {
        self$`udf_language` <- ArrayTaskObject$`udf_language`
      }
      if (!is.null(ArrayTaskObject$`sql_query`)) {
        self$`sql_query` <- ArrayTaskObject$`sql_query`
      }
      if (!is.null(ArrayTaskObject$`type`)) {
        # MANUAL EDIT AFTER OPENAPI AUTOGEN
        # For enums, OpenAPI autogen (1) generates a constructor which requires being called
        # with one arguent; (2) generates callsites (such as here) that calls that constructor
        # with zero arguments.
        #
        #typeObject <- ArrayTaskType$new()
        #typeObject$fromJSON(jsonlite::toJSON(ArrayTaskObject$type, auto_unbox = TRUE, digits = NA))
        typeObject <- ArrayTaskType$new(ArrayTaskObject$type)
        self$`type` <- typeObject
      }
      if (!is.null(ArrayTaskObject$`activity`)) {
        self$`activity` <- ApiClient$new()$deserializeObj(ArrayTaskObject$`activity`, "array[ArrayActivityLog]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(ArrayTaskObject$`logs`)) {
        self$`logs` <- ArrayTaskObject$`logs`
      }
      if (!is.null(ArrayTaskObject$`duration`)) {
        self$`duration` <- ArrayTaskObject$`duration`
      }
      if (!is.null(ArrayTaskObject$`sql_init_commands`)) {
        self$`sql_init_commands` <- ApiClient$new()$deserializeObj(ArrayTaskObject$`sql_init_commands`, "array[character]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(ArrayTaskObject$`sql_parameters`)) {
        self$`sql_parameters` <- ApiClient$new()$deserializeObj(ArrayTaskObject$`sql_parameters`, "array[object]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(ArrayTaskObject$`result_format`)) {
        result_formatObject <- ResultFormat$new()
        result_formatObject$fromJSON(jsonlite::toJSON(ArrayTaskObject$result_format, auto_unbox = TRUE, digits = NA))
        self$`result_format` <- result_formatObject
      }
      if (!is.null(ArrayTaskObject$`task_graph_uuid`)) {
        self$`task_graph_uuid` <- ArrayTaskObject$`task_graph_uuid`
      }
      if (!is.null(ArrayTaskObject$`client_node_uuid`)) {
        self$`client_node_uuid` <- ArrayTaskObject$`client_node_uuid`
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`id`)) {
        sprintf(
        '"id":
          "%s"
                ',
        self$`id`
        )},
        if (!is.null(self$`name`)) {
        sprintf(
        '"name":
          "%s"
                ',
        self$`name`
        )},
        if (!is.null(self$`description`)) {
        sprintf(
        '"description":
          "%s"
                ',
        self$`description`
        )},
        if (!is.null(self$`array_metadata`)) {
        sprintf(
        '"array_metadata":
        %s
        ',
        jsonlite::toJSON(self$`array_metadata`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`subarray`)) {
        sprintf(
        '"subarray":
        %s
        ',
        jsonlite::toJSON(self$`subarray`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`memory`)) {
        sprintf(
        '"memory":
          %d
                ',
        self$`memory`
        )},
        if (!is.null(self$`cpu`)) {
        sprintf(
        '"cpu":
          %d
                ',
        self$`cpu`
        )},
        if (!is.null(self$`namespace`)) {
        sprintf(
        '"namespace":
          "%s"
                ',
        self$`namespace`
        )},
        if (!is.null(self$`status`)) {
        sprintf(
        '"status":
        %s
        ',
        jsonlite::toJSON(self$`status`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`start_time`)) {
        sprintf(
        '"start_time":
          "%s"
                ',
        self$`start_time`
        )},
        if (!is.null(self$`finish_time`)) {
        sprintf(
        '"finish_time":
          "%s"
                ',
        self$`finish_time`
        )},
        if (!is.null(self$`cost`)) {
        sprintf(
        '"cost":
          %d
                ',
        self$`cost`
        )},
        if (!is.null(self$`egress_cost`)) {
        sprintf(
        '"egress_cost":
          %d
                ',
        self$`egress_cost`
        )},
        if (!is.null(self$`access_cost`)) {
        sprintf(
        '"access_cost":
          %d
                ',
        self$`access_cost`
        )},
        if (!is.null(self$`query_type`)) {
        sprintf(
        '"query_type":
        %s
        ',
        jsonlite::toJSON(self$`query_type`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`udf_code`)) {
        sprintf(
        '"udf_code":
          "%s"
                ',
        self$`udf_code`
        )},
        if (!is.null(self$`udf_language`)) {
        sprintf(
        '"udf_language":
          "%s"
                ',
        self$`udf_language`
        )},
        if (!is.null(self$`sql_query`)) {
        sprintf(
        '"sql_query":
          "%s"
                ',
        self$`sql_query`
        )},
        if (!is.null(self$`type`)) {
        sprintf(
        '"type":
        %s
        ',
        jsonlite::toJSON(self$`type`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`activity`)) {
        sprintf(
        '"activity":
        [%s]
',
        paste(sapply(self$`activity`, function(x) jsonlite::toJSON(x$toJSON(), auto_unbox=TRUE, digits = NA)), collapse=",")
        )},
        if (!is.null(self$`logs`)) {
        sprintf(
        '"logs":
          "%s"
                ',
        self$`logs`
        )},
        if (!is.null(self$`duration`)) {
        sprintf(
        '"duration":
          %d
                ',
        self$`duration`
        )},
        if (!is.null(self$`sql_init_commands`)) {
        sprintf(
        '"sql_init_commands":
           [%s]
        ',
        paste(unlist(lapply(self$`sql_init_commands`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`sql_parameters`)) {
        sprintf(
        '"sql_parameters":
           [%s]
        ',
        paste(unlist(lapply(self$`sql_parameters`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`result_format`)) {
        sprintf(
        '"result_format":
        %s
        ',
        jsonlite::toJSON(self$`result_format`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`task_graph_uuid`)) {
        sprintf(
        '"task_graph_uuid":
          "%s"
                ',
        self$`task_graph_uuid`
        )},
        if (!is.null(self$`client_node_uuid`)) {
        sprintf(
        '"client_node_uuid":
          "%s"
                ',
        self$`client_node_uuid`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(ArrayTaskJson) {
      ArrayTaskObject <- jsonlite::fromJSON(ArrayTaskJson)
      self$`id` <- ArrayTaskObject$`id`
      self$`name` <- ArrayTaskObject$`name`
      self$`description` <- ArrayTaskObject$`description`
      self$`array_metadata` <- ArrayInfo$new()$fromJSON(jsonlite::toJSON(ArrayTaskObject$array_metadata, auto_unbox = TRUE, digits = NA))
      self$`subarray` <- DomainArray$new()$fromJSON(jsonlite::toJSON(ArrayTaskObject$subarray, auto_unbox = TRUE, digits = NA))
      self$`memory` <- ArrayTaskObject$`memory`
      self$`cpu` <- ArrayTaskObject$`cpu`
      self$`namespace` <- ArrayTaskObject$`namespace`
      self$`status` <- ArrayTaskStatus$new()$fromJSON(jsonlite::toJSON(ArrayTaskObject$status, auto_unbox = TRUE, digits = NA))
      self$`start_time` <- ArrayTaskObject$`start_time`
      self$`finish_time` <- ArrayTaskObject$`finish_time`
      self$`cost` <- ArrayTaskObject$`cost`
      self$`egress_cost` <- ArrayTaskObject$`egress_cost`
      self$`access_cost` <- ArrayTaskObject$`access_cost`
      self$`query_type` <- Querytype$new()$fromJSON(jsonlite::toJSON(ArrayTaskObject$query_type, auto_unbox = TRUE, digits = NA))
      self$`udf_code` <- ArrayTaskObject$`udf_code`
      self$`udf_language` <- ArrayTaskObject$`udf_language`
      self$`sql_query` <- ArrayTaskObject$`sql_query`
      self$`type` <- ArrayTaskType$new()$fromJSON(jsonlite::toJSON(ArrayTaskObject$type, auto_unbox = TRUE, digits = NA))
      self$`activity` <- ApiClient$new()$deserializeObj(ArrayTaskObject$`activity`, "array[ArrayActivityLog]", loadNamespace("tiledbcloud"))
      self$`logs` <- ArrayTaskObject$`logs`
      self$`duration` <- ArrayTaskObject$`duration`
      self$`sql_init_commands` <- ApiClient$new()$deserializeObj(ArrayTaskObject$`sql_init_commands`, "array[character]", loadNamespace("tiledbcloud"))
      self$`sql_parameters` <- ApiClient$new()$deserializeObj(ArrayTaskObject$`sql_parameters`, "array[object]", loadNamespace("tiledbcloud"))
      self$`result_format` <- ResultFormat$new()$fromJSON(jsonlite::toJSON(ArrayTaskObject$result_format, auto_unbox = TRUE, digits = NA))
      self$`task_graph_uuid` <- ArrayTaskObject$`task_graph_uuid`
      self$`client_node_uuid` <- ArrayTaskObject$`client_node_uuid`
      self
    }
  )
)