Возврат выбранных аргументов функции

Question

У меня есть функция, и я хочу при вызове возвращать только имена аргументов функции.

f<-function(a=NULL,b=NULL,c=NULL,a_unit=NULL,b_unit=NULL,c_unit=NULL){
return(formalArgs(f))
}

Возвращает все имена параметров в функции. Как мне сделать так, чтобы она возвращала только имена аргументов, которые были вызваны?

function(a_unit="char1",b_unit="char2") 

должен возвращать только имена аргументов "a_unit" и "b_unit".

Я хочу присвоить эти имена другому списку, который находится внутри функции

Answer 1

Вы можете попробовать это, хотя я не уверен на 100%, насколько надежным он может быть в нечетных угловых случаях:

f<-function(a = NULL,b = NULL,c = NULL,a_unit = NULL,b_unit = NULL,c_unit = NULL){
    names(match.call())[-1]
}

@ Moody_Mudskipper любезно предложил

rlang::call_args(match.call())

, что может сгладить некоторые странные случаи.

Answer 2

Вот вариант

f <- function(...) names(rlang::enexprs(...))
f(a_unit = "char1", b_unit = "char2")
#[1] "a_unit" "b_unit"

Answer 3

f<-function(a=NULL,b=NULL,c=NULL,a_unit=NULL,b_unit=NULL,c_unit=NULL){
    formalArgs(f)[!sapply(mget(formalArgs(f)), is.null)]
}
f(a_unit="char1",b_unit="char2")
#[1] "a_unit" "b_unit"