my.fun <- function(x=3)
{
importDefaults('my.fun')
x^2
}
my.fun() # returns 9
setDefaults(my.fun, x=10)
my.fun() # returns 100
my.fun(x=4) # returns 16
getDefaults(my.fun)
formals(my.fun)
unsetDefaults(my.fun, confirm=FALSE)
getDefaults(my.fun)
my.fun() # returns 9
Run the code above in your browser using DataLab