#########################################################################
# Class : SpcHeader
#########################################################################
#' \code{SpcHeader} class for header object storing metadata.
#' @description Definition for \code{SpcHeader}. This class is required
#' for the @header slot of \code{Spectra} object. This class directly inherits
#' R lists, so there is no additional slots.
#'
#' @examples
#' new("SpcHeader")
#' @export
setClass("SpcHeader", contains="list",
prototype=prototype(list(Station=NA,Cruise=NA,Latitude=NA,Longitude=NA)))
setMethod("initialize",
signature(.Object = "SpcHeader"),
function (.Object, ...)
{
# cat("---------SpcHeader::Initialize\n")
.Object <- callNextMethod()
# validObject(.Object)
return(.Object)
})
setValidity("SpcHeader", function(object){
# cat("---------Spc::setValidity\n")
return(TRUE)
})
#########################################################################
# Class : SpcHeaderList
#########################################################################
#' \code{SpcHeaderList} class.
#' @description Definition for \code{SpcHeaderList}. This class provides
#' a collection of multiple \code{SpcHeader} objects inside a list.
#'
#' @examples
#' h1 = new("SpcHeader")
#' h2 = new("SpcHeader")
#' as(list(h1, h2), "SpcHeaderList")
#' new("SpcHeaderList")
#' @export
setClass("SpcHeaderList", contains="list",
prototype=prototype(list(new("SpcHeader"))))
setMethod("initialize",
signature(.Object = "SpcHeaderList"),
function (.Object, ...)
{
# cat("---------SpcHeader::Initialize\n")
.Object <- callNextMethod()
# validObject(.Object)
return(.Object)
})
setValidity("SpcHeaderList", function(object){
# cat("---------Spc::setValidity\n")
return(TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.