#' @include AllClasses.R
#' @include AllGenerics.R
NULL
# minid slot setters -------------------------------
#' @describeIn identifier setter method for the identifier slot
#' @param value the new identifier string
#' @import methods
setReplaceMethod("identifier", "minid",
function(x, value) {
x@identifier <- value
validObject(x)
x
})
#' @describeIn short_identifier setter method for the short_identifier slot
#' @param value the new short_identifier string
#' @import methods
setReplaceMethod("short_identifier", "minid",
function(x, value) {
x@short_identifier <- value
validObject(x)
x
})
#' @describeIn creator setter method for the creator slot
#' @param value the new creator string
#' @import methods
setReplaceMethod("creator", "minid",
function(x, value) {
x@creator <- value
validObject(x)
x
})
#' @describeIn orcid setter method for the orcid slot
#' @param value the new orcid string
#' @import methods
setReplaceMethod("orcid", "minid",
function(x, value) {
x@orcid <- value
validObject(x)
x
})
#' @describeIn created setter method for the created slot
#' @param value the new created string
#' @import methods
setReplaceMethod("created", "minid",
function(x, value) {
x@created <- value
validObject(x)
x
})
#' @describeIn checksum setter method for the checksum slot
#' @param value the new checksum string
#' @import methods
setReplaceMethod("checksum", "minid",
function(x, value) {
x@checksum <- value
validObject(x)
x
})
#' @describeIn checksum_function setter method for the checksum_function slot
#' @param value the new checksum_function string
#' @import methods
setReplaceMethod("checksum_function", "minid",
function(x, value) {
x@checksum_function <- value
validObject(x)
x
})
#' @describeIn status setter method for the status slot
#' @param value the new status string
#' @import methods
setReplaceMethod("status", "minid",
function(x, value) {
x@status <- value
validObject(x)
x
})
#' @describeIn locations setter method for the locations slot
#' @param value the new locations list
#' @import methods
setReplaceMethod("locations", "minid",
function(x, value) {
x@locations <- value
validObject(x)
x
})
#' @describeIn titles setter method for the titles slot
#' @param value the new titles list
#' @import methods
setReplaceMethod("titles", "minid",
function(x, value) {
x@titles <- value
validObject(x)
x
})
#' @describeIn obsoleted_by setter method for the obsoleted_by slot
#' @param value the new obsloleted_by list
#' @import methods
setReplaceMethod("obsoleted_by", "minid",
function(x, value) {
x@obsoleted_by <- value
validObject(x)
x
})
#' @describeIn content_key setter method for the content_key slot
#' @param value the new content_key string
#' @import methods
setReplaceMethod("content_key", "minid",
function(x, value) {
x@content_key <- value
validObject(x)
x
})
# configuration slot setters -------------------------------
#' @describeIn server setter method for the server slot
#' @param value the new server URL
#' @import methods
setReplaceMethod("server", "configuration",
function(x, value) {
x@server <- value
validObject(x)
x
})
#' @describeIn user setter method for the user slot
#' @param value the new user string
#' @import methods
setReplaceMethod("user", "configuration",
function(x, value) {
x@user <- value
validObject(x)
x
})
#' @describeIn email setter method for the email slot
#' @param value the new email string
#' @import methods
setReplaceMethod("email", "configuration",
function(x, value) {
x@email <- value
validObject(x)
x
})
#' @describeIn orcid setter method for the orcid slot
#' @examples
#' \dontrun{
#' orcid(configuration_object) <- "0000-0003-2898-9044"
#' }
#' @import methods
setReplaceMethod("orcid", "configuration",
function(x, value) {
x@orcid <- value
validObject(x)
x
})
#' @describeIn code setter method for the code slot
#' @param value the new code string
#' @import methods
setReplaceMethod("code", "configuration",
function(x, value) {
x@code <- value
validObject(x)
x
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.