###########################################################################/**
# @RdocClass AromaPlatform
#
# @title "The AromaPlatform class"
#
# \description{
# @classhierarchy
#
# An AromaPlatform provides methods for a given platform, e.g.
# Affymetrix, Agilent, Illumina.
# }
#
# @synopsis
#
# \arguments{
# \item{...}{Not used.}
# }
#
# \examples{\dontrun{
# @include "../incl/AromaPlatform.Rex"
# }}
#
# \section{Methods}{
# @allmethods "public"
# }
#
# @author
#*/###########################################################################
setConstructorS3("AromaPlatform", function(...) {
extend(Object(), "AromaPlatform")
})
setMethodS3("as.character", "AromaPlatform", function(x, ...) {
s <- sprintf("%s:", class(x)[1L])
s <- c(s, sprintf("Platform: %s", getName(x)))
GenericSummary(s)
}, protected=TRUE)
setMethodS3("byName", "AromaPlatform", function(static, name, ...) {
className <- sprintf("%sPlatform", capitalize(name))
clazz <- Class$forName(className)
newInstance(clazz)
}, static=TRUE)
setMethodS3("getName", "AromaPlatform", function(this, ...) {
name <- class(this)[1L]
name <- gsub("Platform", "", name)
name
})
setMethodS3("equals", "AromaPlatform", function(this, other, ...) {
(getName(this) == getName(other))
})
setMethodS3("findUnitNamesFile", "AromaPlatform", abstract=TRUE, protected=TRUE)
setMethodS3("getUnitNamesFile", "AromaPlatform", abstract=TRUE)
setMethodS3("findUnitTypesFile", "AromaPlatform", abstract=TRUE, protected=TRUE)
setMethodS3("getUnitTypesFile", "AromaPlatform", abstract=TRUE)
setMethodS3("getAromaUgpFile", "AromaPlatform", function(static, ...) {
AromaUgpFile$byName(...)
}, static=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.