# SHOW
#' @include AllClasses.R AllGenerics.R
NULL
# GammaSpectrum ================================================================
setMethod(
f = "show",
signature = "GammaSpectrum",
definition = function(object) {
if (length(object) != 0) {
meta <- summarise(object)
meta <- paste(colnames(meta), unlist(meta), sep = ": ")
cat("Gamma spectrum:", paste("* ", meta), sep = "\n")
} else {
cat("An empty gamma spectrum.\n", sep = "")
}
}
)
# GammaSpectra =================================================================
setMethod(
f = "show",
signature = "GammaSpectra",
definition = function(object) {
n <- length(object)
if (n != 0) {
spc <- ngettext(n, "spectrum", "spectra", )
ref <- get_names(object)
cat("A collection of ", n, " gamma ", spc, ": ",
paste(ref, collapse = ", "), "\n",
sep = "")
} else {
cat("An empty set of gamma spectra.\n", sep = "")
}
}
)
# DoseRateModel ================================================================
setMethod(
f = "show",
signature = "DoseRateModel",
definition = function(object) {
cat("<DoseRateModel>\n", sep = "")
}
)
# CalibrationCurve =============================================================
setMethod(
f = "show",
signature = "CalibrationCurve",
definition = function(object) {
details <- object[["details"]]
info <- vapply(
X = details,
FUN = function(x) paste0(x, collapse = ", "),
FUN.VALUE = character(1)
)
info <- paste0("* ", names(details), ": ", info, "\n")
cat("Calibration curve:\n", info, sep = "")
}
)
# PeakPosition =================================================================
setMethod(
f = "show",
signature = "PeakPosition",
definition = function(object) {
peaks <- methods::as(object, "data.frame")
n <- nrow(peaks)
if (!all(is.na(peaks))) {
pks <- ngettext(n, " peak was ", " peaks were ")
cat(n, pks, "detected.\n", sep = "")
} else {
cat("No peaks were detected.\n", sep = "")
}
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.