R/profiles.R

In tercen/teRcenApi: Tercen R api

#' Profiles
#'
#' @export
#' @format \code{\link{R6Class}} object, super class \code{\link{SciObject}}.
#' @field apiProfile object of class \code{\link{ApiCallProfile}}.
#' @field tableProfile object of class \code{\link{TableProfile}}.
#' @field cpuTimeProfile object of class \code{\link{CpuTimeProfile}}.
#' @field storageProfile object of class \code{\link{StorageProfile}}.
#' @field runProfile object of class \code{\link{RunProfile}}.
Profiles <- R6::R6Class("Profiles", inherit = SciObject, public = list(apiProfile = NULL,
    tableProfile = NULL, cpuTimeProfile = NULL, storageProfile = NULL, runProfile = NULL,
    initialize = function(json = NULL) {
        super$initialize(json = json)
    }, init = function() {
        super$init()
        self$apiProfile = ApiCallProfile$new()
        self$tableProfile = TableProfile$new()
        self$cpuTimeProfile = CpuTimeProfile$new()
        self$storageProfile = StorageProfile$new()
        self$runProfile = RunProfile$new()
    }, initJson = function(json) {
        super$initJson(json)
        self$apiProfile = createObjectFromJson(json$apiProfile)
        self$tableProfile = createObjectFromJson(json$tableProfile)
        self$cpuTimeProfile = createObjectFromJson(json$cpuTimeProfile)
        self$storageProfile = createObjectFromJson(json$storageProfile)
        self$runProfile = createObjectFromJson(json$runProfile)
    }, toTson = function() {
        m = super$toTson()
        m$kind = tson.scalar("Profiles")
        if (!is.null(self$apiProfile)) m$apiProfile = self$apiProfile$toTson()
        if (!is.null(self$tableProfile)) m$tableProfile = self$tableProfile$toTson()
        if (!is.null(self$cpuTimeProfile)) m$cpuTimeProfile = self$cpuTimeProfile$toTson()
        if (!is.null(self$storageProfile)) m$storageProfile = self$storageProfile$toTson()
        if (!is.null(self$runProfile)) m$runProfile = self$runProfile$toTson()
        return(m)
    }))