vars_pull() is too flexible with var expressions

[DavisVaughan]

library(tidyselect)
library(rlang)

expr <- quo(
  unlist(.data$athlete.id, use.names=FALSE)
)

vars_pull(
  vars = "athlete.id", 
  var = !!expr
)
#> [1] "athlete.id"

Usage of vars_pull() like this was seen in the wild in another package

[DavisVaughan]

library(tidyselect)
library(rlang)

vars_pull(names(mtcars), cyl + cyl)
#> [1] "hp"

^{Created on 2021-12-14 by the reprex package (v2.0.1)}

https://twitter.com/michael_chirico/status/1470656648783937537?s=20

[lionel-]

It's probably too late to change this in vars_pull(). Let's track this in eval_pull().