library("rlang")
library("dplyr")
library("purrr")

myfil <- function(data, names, vals) {

  exprs <- purrr::map2(names, vals, ~ quo(!!sym(.x) == !!.y))

  print(quo(dplyr::filter(data, !!!exprs)))

  data <- dplyr::filter(data, !!!exprs)

  data
}


names <- c("gear", "cyl", "carb")
vals <- c(4, 6, 4)

myfil(mtcars, names, vals)