# 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
#' MetadataSchema Class
#'
#'
#'
#' @field created A timestamp indicating when this Metadata was created in the metadata schema store.
#' @field internalUsername The name of the Internal User, if any, who owns this schema.
#' @field lastUpdated A timestamp indicating when this Metadata was last updated in the metadata schema store.
#' @field owner The API user who owns this Schema.
#' @field schema A JSON Schema
#' @field uuid The UUID for this Schema.
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
MetadataSchema <- R6::R6Class(
'MetadataSchema',
public = list(
`created` = NULL,
`internalUsername` = NULL,
`lastUpdated` = NULL,
`owner` = NULL,
`schema` = NULL,
`uuid` = NULL,
initialize = function(`created`, `internalUsername`, `lastUpdated`, `owner`, `schema`, `uuid`){
if (!missing(`created`)) {
stopifnot(is.character(`created`), length(`created`) == 1)
self$`created` <- `created`
}
if (!missing(`internalUsername`)) {
stopifnot(is.character(`internalUsername`), length(`internalUsername`) == 1)
self$`internalUsername` <- `internalUsername`
}
if (!missing(`lastUpdated`)) {
stopifnot(is.character(`lastUpdated`), length(`lastUpdated`) == 1)
self$`lastUpdated` <- `lastUpdated`
}
if (!missing(`owner`)) {
stopifnot(is.character(`owner`), length(`owner`) == 1)
self$`owner` <- `owner`
}
if (!missing(`schema`)) {
stopifnot(is.character(`schema`), length(`schema`) == 1)
self$`schema` <- `schema`
}
if (!missing(`uuid`)) {
stopifnot(is.character(`uuid`), length(`uuid`) == 1)
self$`uuid` <- `uuid`
}
},
asJSON = function() {
self$toJSON()
},
toJSON = function() {
MetadataSchemaObject <- list()
if (!is.null(self$`created`)) {
MetadataSchemaObject[['created']] <- self$`created`
}
else {
MetadataSchemaObject[['created']] <- NULL
}
if (!is.null(self$`internalUsername`)) {
MetadataSchemaObject[['internalUsername']] <- self$`internalUsername`
}
else {
MetadataSchemaObject[['internalUsername']] <- NULL
}
if (!is.null(self$`lastUpdated`)) {
MetadataSchemaObject[['lastUpdated']] <- self$`lastUpdated`
}
else {
MetadataSchemaObject[['lastUpdated']] <- NULL
}
if (!is.null(self$`owner`)) {
MetadataSchemaObject[['owner']] <- self$`owner`
}
else {
MetadataSchemaObject[['owner']] <- NULL
}
if (!is.null(self$`schema`)) {
MetadataSchemaObject[['schema']] <- self$`schema`
}
else {
MetadataSchemaObject[['schema']] <- NULL
}
if (!is.null(self$`uuid`)) {
MetadataSchemaObject[['uuid']] <- self$`uuid`
}
else {
MetadataSchemaObject[['uuid']] <- NULL
}
MetadataSchemaObject
},
fromJSON = function(MetadataSchemaObject) {
if (is.character(MetadataSchemaObject)) {
MetadataSchemaObject <- jsonlite::fromJSON(MetadataSchemaJson)
}
if ("result" %in% names(MetadataSchemaObject)) {
MetadataSchemaObject <- MetadataSchemaObject$result
}
if (!is.null(MetadataSchemaObject$`created`)) {
self$`created` <- MetadataSchemaObject$`created`
}
if (!is.null(MetadataSchemaObject$`internalUsername`)) {
self$`internalUsername` <- MetadataSchemaObject$`internalUsername`
}
if (!is.null(MetadataSchemaObject$`lastUpdated`)) {
self$`lastUpdated` <- MetadataSchemaObject$`lastUpdated`
}
if (!is.null(MetadataSchemaObject$`owner`)) {
self$`owner` <- MetadataSchemaObject$`owner`
}
if (!is.null(MetadataSchemaObject$`schema`)) {
self$`schema` <- MetadataSchemaObject$`schema`
}
if (!is.null(MetadataSchemaObject$`uuid`)) {
self$`uuid` <- MetadataSchemaObject$`uuid`
}
},
toJSONString = function() {
sprintf(
'{
"created": %s,
"internalUsername": %s,
"lastUpdated": %s,
"owner": %s,
"schema": %s,
"uuid": %s
}',
ifelse( is.null(self$`created`),"null",paste0(c('"', self$`created`, '"'))),
ifelse( is.null(self$`internalUsername`),"null",paste0(c('"', self$`internalUsername`, '"'))),
ifelse( is.null(self$`lastUpdated`),"null",paste0(c('"', self$`lastUpdated`, '"'))),
ifelse( is.null(self$`owner`),"null",paste0(c('"', self$`owner`, '"'))),
ifelse( is.null(self$`schema`),"null",paste0(c('"', self$`schema`, '"'))),
ifelse( is.null(self$`uuid`),"null",paste0(c('"', self$`uuid`, '"')))
)
},
fromJSONString = function(MetadataSchemaJson) {
MetadataSchemaObject <- jsonlite::fromJSON(MetadataSchemaJson)
self::fromJSON(MetadataSchemaObject)
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.