Ao chamar a função dplyr::n()
no ambiente global, ocorre um erro.
n()
# Error: This function should not be called directly
Esse erro faz sentido e fiquei curioso para ver como ele era implementado.
n
# function ()
# {
# abort("This function should not be called directly")
# }
# <bytecode: 0x000000001650f200>
# <environment: namespace:dplyr>
Para minha surpresa, no entanto, não há nenhum if
ou verificação de condição. Apenas joga o erro. O mesmo não ocorre quando chamamos n()
no seu habitat natural.
mtcars %>%
group_by(cyl) %>%
summarise(n = n())
# # A tibble: 3 x 2
# cyl n
# <dbl> <int>
# 1 4 11
# 2 6 7
# 3 8 14
Então as perguntas que ficam são duas:
- Como a função
n()
sabe que está sendo chamada em outro contexto? e - Como a função
n()
conta? (onde está o código-fonte dessa parte)