Jquery不适用于R-UI

我已经建立了一个网页使用R闪亮。在web页面中，我有一个包含URL的表，这些URL被呈现为文本。我正在尝试将此文本转换为URL。我编写了一个JQUERY函数，它可以在普通HTML页面上完美地工作，但是当我将该函数作为脚本包含在Shining中时，它就不起作用了。在这件事上，如果有任何帮助，我将不胜感激

我编写的函数如下

$(document).ready(function(){

    $('td').each(function(){

        var str = $(this).html();

        var regex = /(https?:\/\/([-\w\.]+)+(:\d+)?(\/([\w\/_\.]*(\?\S+)?)?)?)/ig ;

        var replaced_text = str.replace(regex, "<a href='$1' target='_blank'>$1</a>");

        $(this).html(replaced_text);
    });
});

$（文档）.ready（函数（）{
$（'td'）。每个（函数（）{
var str=$（this.html（）；
var regex=/（https？：\/\/（[-\w\.]+）+（：\d+）（\/（[\w\/\.]*（\？\S+）））/ig；
var replaced_text=str.replace（regex，“”）；
$（this）.html（替换为文本）；
});
});

如何插入脚本？使用

ui.R

的相关部分进行编辑会很有帮助。您如何插入脚本？使用

ui.R

的相关部分进行编辑会有所帮助。