I need some help writing a simple function. I'm guessing this involves some use of tidyeval (which I have completely forgotten since the last time i had to use it), and I'm sort of in a hurry so any help would be greatly appreciated!

`mtcars`

as an example:

```
library(infer)
library(dplyr)
d_hat <- mtcars %>%
mutate(vs = if_else(vs == 1, "one", "zero")) %>%
specify(disp~vs) %>%
calculate(stat = "diff in means", order = c("zero", "one"))
mtcars %>%
mutate(vs = if_else(vs == 1, "one", "zero")) %>%
specify(disp~vs) %>%
hypothesize(null = "independence") %>%
generate(reps = 5000, type = "permute") %>%
calculate(stat = "diff in means", order = c("zero", "one")) %>%
get_pvalue(obs_stat = d_hat, direction = "two_sided")
#> # A tibble: 1 x 1
#> p_value
#> <dbl>
#> 1 0
```

^{Created on 2019-04-10 by the reprex package (v0.2.1)}

If I want to get p-values for other variables than `disp`

I could of course just repeat everything and change `disp`

, but I'd prefer a basic function that just allows me to change the input to `specify`

.