sql2.r

person <- read_csv("https://raw.githubusercontent.com/anilyayavar/sqlmurdermystery/main/data/person.csv")

# First Witness
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"))
  )