添加超链接到R中的gt表groupname列

Question

我有下表。
我希望 groupname_col （“make”）中的超链接在 gt 表中呈现为真正的超链接。我的代码似乎不起作用。
非常感谢任何建议。

library(tidyverse)
library(gt)

mtcars %>% 
          rownames_to_column("make") %>%
          head() %>%
          mutate(make = paste0("<a href = 'www.google.com'>",make, "</a>")) %>%
          mutate(make = ifelse(is.na(make), "", make), 
                 make = map(make, gt::html)) %>%
          gt(groupname_col= "make", 
             rownames_to_stub = TRUE)