doc/OLD/getFormals.R

In geneorama/geneorama: Gene's collection of miscellaneous functions

getFormals <- function(x){
	Names <- names(formals(x))
	Vals <- as.character(formals(x))
	#Vals[Vals=='']="INPUT"
	ret <- paste(Names,Vals,sep='=',collapse=', ')
	ret <- gsub('\\=$', '', ret)
	ret <- gsub('\\=,', ',', ret)
	ret <- paste('(',ret,')', sep='')
	ret
}