We use this function internally to provide default variable for all columns in a data.frame from column names.
default_label(object)# S4 method for data.frame
default_label(object)
A data.frame
Returns a data.frame
with labelled columns. Labels are preserved (if already specified), otherwise generated from column names.
#' @keywords internal
setMethod( "assign_annotation" , signature = c(object = "vector", value = "character", name = "character") , definition = function(object, value, name) object <- new( paste0("annotated_", class(object)) , annotation <- new("vector_annotation") ) object@label <- object@annotation@label object# return
)