r - Referring to variables by name in a dplyr function returns object not found error

Question

library(nycflights13)
library(dplyr)
sum.na <- function(df,x){df %>% summarise(n=sum(is.na(x)))}
sum.na(flights, arr_time)

When I run the above code, I get the error below:

  **Error in eval(cols[[col]], .data, parent.frame()) : 
  object 'arr_time' not found**

Answer 1

Use curly-curly ({{}}) to pass column names as function argument.

library(nycflights13)
library(dplyr)

sum.na <- function(df,x){df %>% summarise(n=sum(is.na({{x}})))}

sum.na(flights, arr_time)
# A tibble: 1 x 1
#      n
#  <int>
#1  8713