4

Digamos que eu queria criar uma função que use internamente algumas funções do ou de qualquer pacote do que use este tipo de sintaxe.

A título de ilustração:

exemplo <- function(df, predicado, sumario) {
  df %>% filter(predicado) %>% 
    summarise(sumario)
}

O ideal é que esta função rodasse assim:

exemplo(mtcars, cyl == 4, mean(wt))

Porém, quando rodo ela assim obtenho

Error in filter_impl(.data, quo) : object 'cyl' not found

O resultado esperado é o mesmo obtido quando fazemos

mtcars %>% filter(cyl == 4) %>% 
  summarise(mean(wt))

#   mean(wt)
# 1 2.285727

Então pergunto: como usar o no corpo de uma função sem abrir mão de usar o poder e a simplicidade de sua sintaxe?

2 Respostas 2

5

O dplyr tem uma sintaxe muito agradável para programarmos interativamente e o tradeoff disso é justamente a programação quando estamos dentro de funções.

O melhor lugar para entender como tudo funciona é essa vignette.

No seu exemplo, poderia fazer assim:

exemplo <- function(df, predicado, sumario) {
  predicado <- enquo(predicado)
  sumario <- enquo(sumario)

  df %>% 
    filter(!! predicado) %>% 
    summarise(!! sumario)
}

exemplo(mtcars, cyl == 4, mean(wt))

Essa função enquo guarda o argumento passado pelo usuário em algo como se fosse uma string, que depois pode ser usado dentro das funções do dplyr precedido de !!.

1
2

Eu sei que essa pergunta é antiga, mas desde então houveram atualizações no pacote dplyr que facilitam muito a programação de funções.

  • Utilizamos {{var}} para avaliar o valor de uma variável sem enquo e !!
  • Utilizamos {var} := definir um nome a partir de objeto de texto.
  • Utilizamos {{var}} := para definir um nome a partir de um argumento a ser avaliado
library(dplyr)

exemplo <- function(df, predicado, sumario, nome_da_coluna_entre_aspas, nome_da_coluna_sem_aspas) {
  df %>% filter({{predicado}}) %>% 
    summarise("{nome_da_coluna_entre_aspas} média" :=  mean({{sumario}}) ,
              "{{nome_da_coluna_sem_aspas}}_mediana" := median({{sumario}}, na.rm = TRUE))
}

  exemplo(mtcars, cyl == 4, mean(wt),"Teste com aspas", teste_sem_aspas)
#>   Teste com aspas média teste_sem_aspas_mediana
#> 1              2.285727                2.285727

Created on 2023-02-10 with reprex v2.0.2

Mais informações sobre data masking e name injection podem ser encontradas neste manual. (edit: o manual é o mesmo que está na respota do @Daniel Falbel, só a versão web do pacote).

1

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .