I want to add links to my gt table cells as shown:

```
raw_dat <- mtcars[1:15, ] %>% rownames_to_column(var = "id") %>% select(id, mpg)
tibble(
  name = raw_dat$id,
  link = paste(raw_dat$mpg, "And <a href = 'https://www.cars.com//'>here</a>")) %>%
  mutate(link = map(link, gt::html)) %>%
  gt

```

Results:

[![enter image description here](https://i.stack.imgur.com/yoL0l.png)](https://i.stack.imgur.com/yoL0l.png)

How can I make the link fall on the `raw_dat$mpg` and not have any additional text after it. So the desired output is by clicking on the `raw_dat$mpg` cell, you can be taken to cars.com.