diff options
Diffstat (limited to 'test_evaluate_expression.r')
| -rw-r--r-- | test_evaluate_expression.r | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test_evaluate_expression.r b/test_evaluate_expression.r index 256abea..1f918cc 100644 --- a/test_evaluate_expression.r +++ b/test_evaluate_expression.r @@ -7,3 +7,10 @@ test_kwargs <- function(arg_1 = 1, arg_2 = 1) { result <- arg_1 * arg_2 return(result) } + +test_args_and_kwargs <- function(arg_1, arg_2, kwarg_1 = 1., kwarg_2 = 3) { + result <- arg_1 * arg_2 + result <- result * kwarg_1 + result <- result * kwarg_2 + return(result) +} |