Início / coding / Perguntas / 79598067
Accepted
Ben
Asked: 2025-04-29 17:47:51 +0800 CST

Como você especifica um nome de variável para uma chamada de função usando uma variável de caractere em R?

  • 772

Estou tentando Rcriar uma função wrapper que chame uma função interna específica (que é uma função existente) e execute algumas ações com ela. Minha função wrapper incluirá um argumento funcpara a função interna que desejo chamar, e essa função sempre terá uma estrutura padrão específica com um argumento específico de interesse, mas o argumento pode ser chamado por um nome diferente em casos diferentes. Portanto, também quero um argumento na minha função wrapper arg.nameque especifique o nome de um dos argumentos da função interna. Também quero poder especificar argumentos adicionais com reticências ...para permitir outras entradas gerais para a função interna. Aqui está um esboço do que quero fazer (mas este código não funciona):

#Example of the internal function
#This would be an existing function - not one that I program myself
#The variable n might be named something different in some cases
EXISTING.FUNCTION <- function(a, n) { a + n^2 }

#Example of the wrapper function
#It includes arg.name to specify the name of the variable
MY.WRAPPER.FUNCTION <- function(value, func, arg.name, ...) {
  
  #Evaluate the internal function using inputs wrapper inputs
  OUTPUT <- func(arg.name = value, ...)
  
  #Return the output
  OUTPUT }

Quero poder chamar a função wrapper assim:

MY.WRAPPER.FUNCTION(value = 4, func = EXISTING.FUNCTION, arg.name = 'n', a = 3)

#What I want to get
[1] 19

#What I actually get
Error in func(arg.name = value, ...) : unused argument (arg.name = value)

Não tenho certeza de como Rreconhecer a sequência de caracteres arg.namecomo o nome da variável no uso interno da função interna especificada dentro da função wrapper. Acredito que isso use uma ou mais funções de avaliação (por exemplo, substitute, quote, as.name, etc.), mas ainda não consegui modificar o código acima para que ele seja arg.namereconhecido como identificador do nome do argumento na função interna.

Informações adicionais: O texto acima foi escrito para simplificar o problema, mas, se for relevante, as funções existentes com as quais quero trabalhar são funções quantílicas para distribuições de probabilidade. Normalmente, elas terão um argumento de probabilidade chamado, pmas quero considerar a possibilidade de alguém programar uma função quantílica com um nome diferente para o argumento de probabilidade. Não tenho certeza se esse contexto é relevante para a solução, mas essa é a motivação para o problema.

2 respostas

  1. Best Answer

    Sua pergunta contém muitas questões de design.

    Não tenho muita certeza do que você quer. Solução rápida (suja)

    .my_function = \(a, n) a + n^2L # . to indicate internal use

wrapper = \(value, func, arg.name, ...) {
  args = list(...)
  args[[arg.name]] = value
  do.call(func, args)
}

    > wrapper(value=4, func=.my_function, arg.name='n', a=3)
[1] 19

    Não vejo muito sentido nisso.

    • 3

  2. Você pode usar substitute()para criar uma chamada não avaliada para o fornecido FUNCcom ...expandido. Em seguida, adicione o VALUEcomo um argumento nomeado à chamada usando o ARG.NAME. Por fim, avalie a chamada construída no ambiente do chamador.

    EXISTING.FUNCTION <- function(a, n) a + n^2

MY.WRAPPER.FUNCTION <- function(VALUE, FUNC, ARG.NAME, ...) {
  call <- substitute(FUNC(...))
  call[[ARG.NAME]] <- substitute(VALUE)
  eval.parent(call)
}

MY.WRAPPER.FUNCTION(VALUE = 4, FUNC = EXISTING.FUNCTION, ARG.NAME = 'n', a = 3)
#> [1] 19

    Comparado à do.call()abordagem anterior, construir a chamada dessa forma tem a vantagem de não forçar a avaliação de ...e VALUEantes da chamada para FUNC. Isso pode ou não ser importante, dependendo de como o método FUNCtrata seus argumentos.

    (Observe a leve ofuscação (capitalização) dos nomes dos argumentos do wrapper. Isso serve para alguma proteção contra correspondência parcial de argumentos nomeados nos ...formais.)

    • 3

relate perguntas