no_args <- function() NULL
no_args()



fixed_args <- function(x, y) print(paste("x=", x, ", y=", y, sep=""))
fixed_args(1, 2)        
fixed_args(y=2, x=1)    



opt_args <- function(x=1) x
opt_args()              
opt_args(3.141)         



var_args <- function(...) print(list(...))
var_args(1, 2, 3)
var_args(1, c(2,3))
var_args()



fixed_args(y=2, x=1)    



if (TRUE) no_args()



print(no_args)



return_something <- function() 1
x <- return_something()
x