Cacher is the code snippet organizer for pro developers

mtcars %>%
  mutate(
    selected = case_when(
      cyl == 6 & carb == 4 ~ "yes",
      cyl == 8 & carb == 8 ~ "yes",
      TRUE                      ~  "no"
    )
  ) %>% 
  filter(selected == "yes") %>% 
  select(-selected)