R/axis.R

In tercen/teRcenApi: Tercen R api

#' Axis
#'
#' @export
#' @format \code{\link{R6Class}} object, super class \code{\link{SciObject}}.
#' @field axisExtent object of class \code{\link{Point}}.
#' @field axisSettings object of class \code{\link{AxisSettings}}.
#' @field graphicalFactor object of class \code{\link{GraphicalFactor}}.
Axis <- R6::R6Class("Axis", inherit = SciObject, public = list(axisExtent = NULL,
    axisSettings = NULL, graphicalFactor = NULL, initialize = function(json = NULL) {
        super$initialize(json = json)
    }, init = function() {
        super$init()
        self$axisExtent = Point$new()
        self$axisSettings = AxisSettings$new()
        self$graphicalFactor = GraphicalFactor$new()
    }, initJson = function(json) {
        super$initJson(json)
        self$axisExtent = createObjectFromJson(json$axisExtent)
        self$axisSettings = createObjectFromJson(json$axisSettings)
        self$graphicalFactor = createObjectFromJson(json$graphicalFactor)
    }, toTson = function() {
        m = super$toTson()
        m$kind = tson.scalar("Axis")
        if (!is.null(self$axisExtent)) m$axisExtent = self$axisExtent$toTson()
        if (!is.null(self$axisSettings)) m$axisSettings = self$axisSettings$toTson()
        if (!is.null(self$graphicalFactor)) m$graphicalFactor = self$graphicalFactor$toTson()
        return(m)
    }))