Nothing
#' @name names
#'
#' @title Retrieve names of vegtable and coverconvert objects
#'
#' @description
#' Quick access to column names in slot header and names of conversion codes.
#'
#' These methods provide a quick display of the contents in
#' [coverconvert-class] and [vegtable-class] objects.
#'
#' @param x An object of class [coverconvert-class] or [vegtable-class].
#' @param value A character vector used for replacement methods.
#'
#' @return
#' A list containing the names from each slot.
#'
#' Either a vector or a list (in the case of `dimnames()`) with
#' the names of variables.
#'
#' @author Miguel Alvarez \email{kamapu78@@gmail.com}.
#'
#' @examples
#' names(Kenya_veg@coverconvert)
#' names(Kenya_veg)
#' dimnames(Kenya_veg)
#' @rdname names
#' @aliases names,vegtable-method
#'
#' @exportMethod names
setMethod(
"names", signature(x = "vegtable"),
function(x) {
names_list <- list()
for (i in slotNames(x)) {
names_list[[i]] <- names(slot(x, i))
}
return(names_list)
}
)
#' @rdname names
#' @aliases dimnames dimnames,vegtable-method
#'
#' @exportMethod dimnames
setMethod(
"dimnames", signature(x = "vegtable"),
function(x) {
return(list(x@header$ReleveID, colnames(x@header)))
}
)
#' @rdname names
#' @aliases names,coverconvert-method
setMethod(
"names", signature(x = "coverconvert"),
function(x) names(x@value)
)
#' @rdname names
#' @aliases names<-,coverconvert-method
setReplaceMethod(
"names", signature(x = "coverconvert"),
function(x, value) {
names(x@value) <- value
names(x@conversion) <- value
return(x)
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.