```{r}
library(tidyverse)
library(fuzzyjoin)
```

```{r}
inside_list <- tribble(
  ~first, ~last, ~dob,
  "frank", "johnson", "1980-01-01",
  "debbie", "willis", "1982-01-01"
) %>% mutate(dob = parse_date(dob, format = "%Y-%m-%d"))
```


```{r}
outside_list <- tribble(
  ~first, ~last, ~dob,
  "frank", "johnson", "1980-01-01",
  "debrah", "willis", "1982-01-02"
) %>% mutate(dob = parse_date(dob, format = "%Y-%m-%d"))
```


```{r}
stringdist_join(outside_list, inside_list,
                by = c("first", "last", "dob"),
                ignore_case = TRUE,
                distance_col = "dist",
                mode = "left",
                method = "lv",
                max_dist = 20) %>%
  mutate(total_dist = dob.dist + first.dist + last.dist) %>%
  View()
```