R Create Function With Default Argument