Início / coding / Perguntas / 79351527
Accepted
Luigi
Asked: 2025-01-13 16:14:36 +0800 CST

Crie uma função R que aplica dinamicamente e sequencialmente outras funções predefinidas a uma variável de entrada inicial

  • 772

Tenho um conjunto muito simples de funções que pegam uma variável de caractere de entrada (uma palavra ou frase) e retornam uma nova. Basicamente, cada uma dessas funções realiza uma criptografia diferente na palavra de entrada.

Como tanto a entrada quanto a saída dessas funções são variáveis ​​de caracteres, a saída de uma função pode ser usada como entrada para outra, de modo que várias cifras sequenciais podem ser aplicadas. Por exemplo:

#install.packages("ciphertext")
library(ciphertext)

first_output <- ciphertext::caesar("hello"); first_output

[1] "ifmmp"

ciphertext::atbash(first_output)

[1] "runnk"

Eu queria saber se existe a possibilidade em R de criar uma função (que nomeei combinefabaixo) que recebe como entrada uma variável de caractere inicial ("olá", no meu exemplo) e aplica sequencialmente outras funções listadas como argumentos adicionais.

Então o algoritmo seria algo como:

  1. Pegue a palavra inicial ("olá")
  2. Aplique a primeira função listada à palavra inicial e obtenha uma nova palavra
  3. repita o passo 1 com a nova palavra até usar todos os argumentos listados

Como eu gostaria que funcionasse e o resultado final esperado:

combinef("hello", caesar, atbash) #apply caesar function to "hello", and then atbash
[1] "runnk"


combinef("hello", caesar, atbash, polybius) #apply polybius after the atbash
"42 45 33 33 25"

Todas as minhas tentativas de criar tal função são extremamente prolixas, pois tentei fazer uso de if (argument2 == "function_name")estruturas, mas isso se tornou impraticável quando o número de métodos de cifragem potenciais aumentou.

Qualquer ajuda ou sugestão será muito apreciada!

3 respostas

  1. Best Answer

    Aqui está uma abordagem básica R com Reduce(), que usa uma função binária para combinar sucessivamente os elementos de um determinado vetor e um possível valor inicial :

    combinef <- function(init, ...) {
    Reduce(
        \(x, y) y(x), list(...),
        init = init
    )
}

combinef("hello", caesar, atbash)
# [1] "runnk"

    Alternativamente, você pode usar purrr::compose(), que cria uma nova função que é a composição de múltiplas funções :

    combinef2 <- purrr::compose(atbash, caesar)
combinef2("hello")
# [1] "runnk"
    • 4

  2. Tenho certeza de que algum pacote já implementa algo assim, mas você pode escrever uma função recursiva:

    foo <- function(x) paste(x, "foo")
bar <- function(x) paste(x, "bar")
baz <- function(x) paste(x, "baz")

caller <- function(x, funcs) {
  res <- funcs[[1]](x)
  if (length(funcs) == 1) res else Tailcall(caller, res, funcs[-1])
}

caller("hello", list(foo, bar, baz))
#[1] "hello foo bar baz"
    • 2

  3. Qualquer um destes funcionaria:

    # 1 - base R
combine1 <- function(x, ...) Reduce(\(x, f) f(x), list(...), init = x)
combine1(pi, sqrt, round) # 2

# 2 - base R
combine2 <- function(x, ...) {
   for(f in list(...)) x <- f(x)
   x
}
combine2(pi, sqrt, round) # 2

# 3 - purrr
library(purrr)
combine3 <- function(x, ...) reduce(list(...), \(x, f) f(x), .init = x)
combine3(pi, sqrt, round) # 2

# 4 - purrr
library(purrr)
combine4 <- function(x, ...) do.call("compose", rev(list(...)))(x)
combine4(pi, sqrt, round) # 2

# 5 - functional
library(functional)
combine5 <- function(x, ...) Compose(...)(x)
combine5(pi, sqrt, round) # 2

# 6 - magrittr
library(magrittr)
combine6 <- function(x, ...) freduce(x, list(...))
combine6(pi, sqrt, round) # 2

# 7 - magrittr - create a new function to run both functions
newfun <- . %>% sqrt %>% round
newfun(pi)

    Atualizar

    Apresentação reorganizada.

    • 2

relate perguntas