# 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
#' MonitoringTaskSummary Class
#'
#' A compressed description of a monitoring task
#'
#' @field active Whether this monitor is currently active.
#' @field frequency The interval in minutes on which this monitor will run. Minimum is 5. Default is 720.
#' @field internalUsername Internal user account used to perform the check.
#' @field target The id of the sytem to be monitored. This must be an active system registered with the Systems service.
#' @field updateSystemStatus Whether this Monitor should update the system status when the results change. You must have the ADMIN role on the target system to use this feature.
#' @field id The unique id of the monitor
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
MonitoringTaskSummary <- R6::R6Class(
'MonitoringTaskSummary',
public = list(
`active` = NULL,
`frequency` = NULL,
`internalUsername` = NULL,
`target` = NULL,
`updateSystemStatus` = NULL,
`id` = NULL,
initialize = function(`active`, `frequency`, `internalUsername`, `target`, `updateSystemStatus`, `id`){
if (!missing(`active`)) {
self$`active` <- `active`
}
if (!missing(`frequency`)) {
stopifnot(is.numeric(`frequency`), length(`frequency`) == 1)
self$`frequency` <- `frequency`
}
if (!missing(`internalUsername`)) {
stopifnot(is.character(`internalUsername`), length(`internalUsername`) == 1)
self$`internalUsername` <- `internalUsername`
}
if (!missing(`target`)) {
stopifnot(is.character(`target`), length(`target`) == 1)
self$`target` <- `target`
}
if (!missing(`updateSystemStatus`)) {
self$`updateSystemStatus` <- `updateSystemStatus`
}
if (!missing(`id`)) {
stopifnot(is.character(`id`), length(`id`) == 1)
self$`id` <- `id`
}
},
asJSON = function() {
self$toJSON()
},
toJSON = function() {
MonitoringTaskSummaryObject <- list()
if (!is.null(self$`active`)) {
MonitoringTaskSummaryObject[['active']] <- self$`active`
}
else {
MonitoringTaskSummaryObject[['active']] <- NULL
}
if (!is.null(self$`frequency`)) {
MonitoringTaskSummaryObject[['frequency']] <- self$`frequency`
}
else {
MonitoringTaskSummaryObject[['frequency']] <- NULL
}
if (!is.null(self$`internalUsername`)) {
MonitoringTaskSummaryObject[['internalUsername']] <- self$`internalUsername`
}
else {
MonitoringTaskSummaryObject[['internalUsername']] <- NULL
}
if (!is.null(self$`target`)) {
MonitoringTaskSummaryObject[['target']] <- self$`target`
}
else {
MonitoringTaskSummaryObject[['target']] <- NULL
}
if (!is.null(self$`updateSystemStatus`)) {
MonitoringTaskSummaryObject[['updateSystemStatus']] <- self$`updateSystemStatus`
}
else {
MonitoringTaskSummaryObject[['updateSystemStatus']] <- NULL
}
if (!is.null(self$`id`)) {
MonitoringTaskSummaryObject[['id']] <- self$`id`
}
else {
MonitoringTaskSummaryObject[['id']] <- NULL
}
MonitoringTaskSummaryObject
},
fromJSON = function(MonitoringTaskSummaryObject) {
if (is.character(MonitoringTaskSummaryObject)) {
MonitoringTaskSummaryObject <- jsonlite::fromJSON(MonitoringTaskSummaryJson)
}
if ("result" %in% names(MonitoringTaskSummaryObject)) {
MonitoringTaskSummaryObject <- MonitoringTaskSummaryObject$result
}
if (!is.null(MonitoringTaskSummaryObject$`active`)) {
self$`active` <- MonitoringTaskSummaryObject$`active`
}
if (!is.null(MonitoringTaskSummaryObject$`frequency`)) {
self$`frequency` <- MonitoringTaskSummaryObject$`frequency`
}
if (!is.null(MonitoringTaskSummaryObject$`internalUsername`)) {
self$`internalUsername` <- MonitoringTaskSummaryObject$`internalUsername`
}
if (!is.null(MonitoringTaskSummaryObject$`target`)) {
self$`target` <- MonitoringTaskSummaryObject$`target`
}
if (!is.null(MonitoringTaskSummaryObject$`updateSystemStatus`)) {
self$`updateSystemStatus` <- MonitoringTaskSummaryObject$`updateSystemStatus`
}
if (!is.null(MonitoringTaskSummaryObject$`id`)) {
self$`id` <- MonitoringTaskSummaryObject$`id`
}
},
toJSONString = function() {
sprintf(
'{
"active": %s,
"frequency": %d,
"internalUsername": %s,
"target": %s,
"updateSystemStatus": %s,
"id": %s
}',
ifelse( is.null(self$`active`),"null",paste0(c('"', self$`active`, '"'))),
ifelse( is.null(self$`frequency`),"null",paste0(c('"', self$`frequency`, '"'))),
ifelse( is.null(self$`internalUsername`),"null",paste0(c('"', self$`internalUsername`, '"'))),
ifelse( is.null(self$`target`),"null",paste0(c('"', self$`target`, '"'))),
ifelse( is.null(self$`updateSystemStatus`),"null",paste0(c('"', self$`updateSystemStatus`, '"'))),
ifelse( is.null(self$`id`),"null",paste0(c('"', self$`id`, '"')))
)
},
fromJSONString = function(MonitoringTaskSummaryJson) {
MonitoringTaskSummaryObject <- jsonlite::fromJSON(MonitoringTaskSummaryJson)
self::fromJSON(MonitoringTaskSummaryObject)
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.