in the input and returns a list
scale_apply_to_data(scale, data=data.frame())
scale
data
Hadley Wickham <h.wickham@gmail.com>