R dplyr write function for logical expression in filter

Question

I would like to automate the logical expression in statements like dplyr::filter or dplyr::case_when. For a reproducible example consider the mtc