R/label.R

In ghowoo/Wu: This is a collection of utility functions for statistical analysis and reporting.

#' A label Function
#'
#' This function allows you to get the attribute of label of a object. It is a modified version of the var_label function from the "labelled" package and allows to assign NULL value to a label.
#' @param 
#' @keywords label
#' @export



label <- function(obj) {
  UseMethod("label")
}

#' @export
label.default <- function(obj) {
    rtn <- attr(obj, which = "label", exact = TRUE)
    if (is.null(rtn)) {
        rtn <- ""
    }
    return(rtn)
}

#' @export
`label<-` <- function(obj, value) {
  UseMethod("label<-")
}

#' @export
`label<-.default` <- function(obj, value) {
    attr(obj, "label") <- value
    obj
}