Печать аргументов функции в R

Question

Возможно ли напечатать аргументы функции?

Пример, это моя функция:

my_function <- function(argument_1, argument_2){ 
      my_equation <- argument_1 + argument_2 
      return(my_equation) 
} 

И я запустить его с этим кодом:

my_save <- my_function(argument_1=1, argument_2=123) 

Можно ли написать что-то вроде этого GET.MY.FUNCTION.PARAMETERS(my_save), который будет возвращать вектор или список с 1, 123

Answer 1

Быстрый способ сделать это - передать аргументы обратно в return в качестве части списка:

my_function <- function(argument_1, argument_2){ 
     my_equation <- argument_1 + argument_2 
     return(list(eqn = my_equation, arg1 = argument_1, arg2 = argument_2)) 
} 

Так что вы можете назначить вывод:

results <- my_function(foo1, foo2) 

и затем убирается вам информацию:

eqn <- results$eqn 
args <- with(results, c(arg1, arg2)) 
print(args)