In R, how to make the variables inside a function available to the lower level function inside this function?(with, attach, environment)