How can we create defused expressions?

rlang::expr() captures what you send in

expr(foo)
#> foo

expr(mean(foo, na.rm = TRUE))
#> mean(foo, na.rm = TRUE)