Add consistent way to access user-defined arguments from function passed to

[selkamand]

we have arg_name to access deparse(substitute(x)) - called from within the assertion,
but how can we get the relevant 'name' of arg2 such that if a user calls assert_test(1:5, 10:12) the error message says
'1:5 is our first argument, 10:12 is our second'

# Create an assertion-powering function
test_advanced <- function(x, arg2){
  return("{arg_name} is our first argument. {name(arg2)} is our second.")
}

assert_test <- assert_create(
  test_advanced
  )

[selkamand]

Substitute deparse in the glue statement works since its only evaluated from within the assertion function body, i.e

# Create an assertion-powering function
test_advanced <- function(x, arg2){
  return("{arg_name} is our first argument. {deparse(substitute(arg2)} is our second.")
}

assert_test <- assert_create(
  test_advanced
  )

assert_test(1:5, 10:12)

but this is unnecessarily verbose.

Our alternatives include:

1. creating a helper function used like name() in the first example, that wraps deparse(substitute(arg2)) appropriately and manages environments well enough for it to work well

2. In the body of assert_create, loop through all non-standard assertion arguments and create _name suffixed deparsed/substituted versions,
   i.e (arg_2_name) or some