frame.attr(which, n=NULL) frame.attr(which, n=NULL) <- value frame.attributes()
myfun <- structure(
function(x) {
if(missing(x)) cat(frame.attr("hint"), "\n")
something.else(x)
},
hint = "Consult your local statistician"
)