Desired results

Using simple syntax I filter on vs and am columns leaving also the cyl values.

data(mtcars)
dta <- mtcars[,c("vs", "am", "cyl")]
# Desired results
dta %>% distinct(vs, am, .keep_all = TRUE)

Desired syntax

I would like to reverse the syntax above and select distinct observations on all values excluding the cyl column, corresponding to the example below:

dta %>% distinct(vars(-contains("cyl")), .keep_all = TRUE)

that naturally does not work:

>> dta %>% distinct(vars(-contains("cyl")), .keep_all = TRUE)
   vs am cyl vars(-contains("cyl"))
1   0  1   6      ~-contains("cyl")
2   0  1   6      ~-contains("cyl")
3   1  1   4      ~-contains("cyl")
4   1  0   6      ~-contains("cyl")
5   0  0   8      ~-contains("cyl")
6   1  0   6      ~-contains("cyl")
7   0  0   8      ~-contains("cyl")