From 6befebe3030105bd88f22970a369178a2b7212e1 Mon Sep 17 00:00:00 2001 From: TinWoodman92 Date: Sat, 1 Jul 2023 16:33:14 -0500 Subject: added args and kwargs test. --- test_evaluate_expression.r | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'test_evaluate_expression.r') 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) +} -- cgit v1.2.3