[R] override default arguments in nested function

[Peter Ehlers]

On 2011-04-20 19:45, Joshua Wiley wrote:
> Hi All,
>
> I think I already know the answer, but I am hoping I am missing
> something.  I am using function omega from the psych_1.0-96 in R
> version 2.13.0.  I would like to override one of the default arguments
> of a function that is eventually called (to fix convergence issues),
> the problem is there is no argument at the omega() function level that
> make it to the function I want to override.  That is,
>
> omega calls schmid calls oblimin calls GPFoblq
>
> and I want to change an argument in GPFoblq.  Right now I am using
> (the rather unsatisfactory):
>
> trace(what = GPFoblq, tracer = expression(maxit<- 2000), at = 10,
> print = FALSE)
>
> to override the maximum number of iterations, which works but is a
> hassle.  Anyone have other ideas/techniques?
>
> Thanks,
>
> Josh
>
>
Does

  formals(GPFoblq)$maxit <- 2000
  omega(....)

do what you want?

Peter Ehlers