library("R.methodsS3") message("TESTING: appendVarArgs()...") foobar <- function(a=1) print(a) print(foobar) foobar <- appendVarArgs(foobar) print(foobar) foobar <- appendVarArgs(foobar) print(foobar) # Cleanup rm(list=ls()) message("TESTING: appendVarArgs()...done")
Generated by dwww version 1.15 on Sun Jun 30 09:50:33 CEST 2024.