powered by
set.control.class(myname = { sc <- sys.calls() as.character(sc[[length(sc) - 1]][[1]]) }, control = get("control", pos = parent.frame()))
control