From 4db6f87488a28128ef45a1626ac9282281e2ba2c Mon Sep 17 00:00:00 2001 From: TinWoodman92 Date: Wed, 5 Jul 2023 20:25:49 -0500 Subject: Added test for default kwargs value. --- test_evaluate_expression.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test_evaluate_expression.r') diff --git a/test_evaluate_expression.r b/test_evaluate_expression.r index 1f918cc..f9e657a 100644 --- a/test_evaluate_expression.r +++ b/test_evaluate_expression.r @@ -8,7 +8,7 @@ test_kwargs <- function(arg_1 = 1, arg_2 = 1) { return(result) } -test_args_and_kwargs <- function(arg_1, arg_2, kwarg_1 = 1., kwarg_2 = 3) { +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 -- cgit v1.2.3