R/get.data.note.R

get.data.note <-
function (data.d)
{
    data.note <- attr(data.d, "data.note")
    
    `if`(is.null(data.note),
         return(data.d$note),
         return(data.note))
}
Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.