sql3.r

# First Witness
witnesses <- person %>% 
  filter(str_detect(address_street_name, "Northwestern Dr") &
           address_number == max(address_number), 
         .by = address_street_name) %>% 
  # Join with Second Witness
  bind_rows(
    person %>% 
      filter(str_detect(name, "Annabel") &
               str_detect(address_street_name, "Franklin Ave"))
  ) %>% 
  pull(id)