g2p

```{r}
#| eval: false
library(babynames)
library(tidyverse)
library(reticulate)
```

```{r}
#| eval: false
babynames |> 
  pull(name) |> 
  unique() -> 
  unique_names
```

```{python}
#| eval: false
from g2p_en import G2p
```

```{python}
#| eval: false
g2p = G2p()
phones = [g2p(x) for x in r.unique_names]
```

```{r}
#| eval: false
all_names <- map_chr(py$phones, \(x)str_c(x, collapse = " "))
```

```{r}
#| eval: false
tibble(
  name = unique_names,
  name_pronounce = all_names
) |> 
  write_csv(file = "../data/name_pronunciation.csv")
```