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 May 2, 2019, 5 p.m.