How else can we create defused expressions?

Types ➡️ names of creation functions

x <- "foo"
sym(x) == expr(foo)
#> TRUE

call("mean", sym(x), na.rm = TRUE) == expr(mean(foo, na.rm = TRUE))
#> TRUE