sql7.r

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

gfn_checkins %>% 
  filter(check_in_date == "20180109") %>% 
  right_join(
    gfn_member %>% 
      filter(membership_status == "gold",
             str_detect(id, "^48Z")),
    by = join_by(membership_id == id)
  ) %>% 
  left_join(
    person,
    by = join_by(person_id == id)
  ) %>% 
  inner_join(
    dl %>% 
      filter(str_detect(plate_number, "H42W")),
    by = join_by(license_id == id)
  )