R/label.R

Defines functions label

Documented in label

'label<-' <-
function(x, value)
{
    if (!is.character(value))
        value <- deparse(value)
    attr(x, "label") <- value
    return(x)
}

label <-
function(x)
{
    attr(x, "label")
}

Try the mefa package in your browser

Any scripts or data that you put into this service are public.

mefa documentation built on Oct. 7, 2021, 9:11 a.m.