Openxlsx超链接输出在Excel中显示

我正在尝试将具有两列的Excel工作表纳入数据框，

列A包含商店名称 B列包含这些商店的URL。

我想将A列设为可点击的超链接，因此它是到商店网站的超链接，而不是纯文本。

我试图使用openxlsx包来生成正确的输出。

我试图使用以下代码片段。

x <- c("https://www.google.com", "https://www.google.com.au")
names(x) <- c("google", "google Aus")
class(x) <- "hyperlink"

writeData(wb, sheet = 1, x = x, startCol = 10)

which comes from this post of a similar nature. https://stackoverflow.com/a/48973469/11958444

但是我的问题是当我替换代码的适当部分时，例如：

x <- df$b
names(x) <- df$a
class(x) <- "hyperlink"

writeData(wb, sheet = 1, x = x, startCol = 10)

而不是给我一列以商店名称作为输出的超链接，而是给了我整个URL作为输出。我的代码中缺少什么吗？

我得到的输出具有可单击的链接，但是它没有打印出带有名称的URL，而是打印出了URL。