On Tue, Oct 20, 2015 at 2:45 PM, Steven Stoline <[email protected]> wrote:
> Dear All:
>
> I am wondering whether there is a way to read and assign the number of
> arguments of a function inside this function.
>
>
> ### For example
>
> fun<-function(x1,x2,x3,...){
>
> m<- number of arguments
>
> }
>
> ### e.g.
>
> fun<-function(x1,x2,x3){
>
> m<- number of arguments
>
> ### m =3 in this case
>
> }
>
> ### e.g.
>
> fun<-function(x1,x2,x3,y1,z1,z2){
>
> m<- number of arguments
>
> ### m =6 in this case
>
> }
>
It's not entirely kosher, but
length(formals(sys.function()))
will work.
f <- function(a, b,c, d, e, f){
length(formals(sys.function()))
}
f() ## 6
[[alternative HTML version deleted]]
_______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-sig-teaching
