R 如何将美元符号添加到链接和节点标签？

我想在networkD3 Sankey绘图中的链接和节点标签上添加一个美元符号。这里提出并回答了一个类似的问题：

在上面的链接中，CJ使用

htmlwidgets:：onRender

重写链接标题，以将千位分隔符从“，”更改为“.”

不幸的是，我不懂JavaScript，也不知道如何更改解决方案以适应我的问题

编辑

试图将CJ Yetman的技术应用于节点。我的代码不起作用

customJS <- '
function(el,x) {
    var node = d3.selectAll(".node");

    var format = d3.format("($,.2f");

    node.select("title").select("body")
        .html(function(d) { return "<pre>" + d.target.name + "<br>" + format(d.value) + "<pre>"; });
}
' 

customJS对于节点，您可以在数据帧中的字符串中添加“$”，然后再将其传递到
sankeyNetwork（）
，如

nodes使用CJ Yetman的代码，我更改了
var格式
以获得以下格式

原创->CJ Yetman->我的编辑

12000->12000美元->12000.00美元

customJS感谢您为CJ Yetman提供解决方案。非常感谢。
customJS <- '
function(el,x) {
    var link = d3.selectAll(".link");

    var format = d3.format("($,.2f");

    link.select("title").select("body")
        .html(function(d) { return "<pre>" + d.source.name + " \u2192 " + d.target.name +
            "\\n" + format(d.value) + "<pre>"; });
}
'