Фильтрация таблицы данных по условиям, переданным в списке

Question

Мне интересно, есть ли лучший способ сделать эту фильтрацию? Просто пытаюсь найти метод, аналогичный запросу панд, где вы передаете словарь (kwagrs**)

library(data.table)
setDT(dat4) 

Параметры передаются в списке здесь:

ab <- list(Clinic=TRUE, Hospital=FALSE)
ab <- sapply(ab, function(x) {
  var = names(ab)[parent.frame()$i[x]]
  sprintf('%s==%s',var,x)
})
ab <- paste(ab, collapse = ' & ')

ad <- dat4[eval(parse(text=ab)),]

Я ищу программный способ сделать это подмножество:

subset(dat4, Clinic == TRUE & Hospital == FALSE)