R 闪亮：如何在datatable中显示条形图

我想在数据表中显示条形图。这显示了我想使用javascript做什么。我不懂javascript或html，所以您能告诉我是否可以使用shiny实现这一点吗

该网站的代码如下：

HTML代码：

<table id="dTable" class="table table-striped table-bordered" cellspacing="0" width="100%">
    <thead>
        <tr>
            <th>Languages</th>
            <th>Positive</th>
            <th>Neutral</th>
            <th>Negative</th>
        </tr>
    </thead>
    <tbody>
        <tr>
            <td>English</td>
            <td>50</td>
            <td>20</td>
            <td>25</td>
        </tr>
        <tr>
            <td>German</td>
            <td>25</td>
            <td>10</td>
            <td>12</td>
        </tr>
        <tr>
            <td>French</td>
            <td>20</td>
            <td>20</td>
            <td>17</td>
        </tr>
        <tr>
            <td>Spanish</td>
            <td>22</td>
            <td>4</td>
            <td>10</td>
        </tr>
    </tbody>
</table>

语言文字
肯定的
中立的
消极的
英语
50
20
25
德国的
25
10
12
法语
20
20
17
西班牙的
22
4.
10

JAVASCRIPT:

$(function(){
    $("#dTable").dataTable({
        "columns": [
                {
                    "title":"Languages"
                },
                {
                    "title":"Votes",
                    "render": function(data, type, row, meta){
                        return parseInt(row[1], 10) + parseInt(row[2], 10) + parseInt(row[3], 10)
                    }
                },
                {
                    "visible":false
                },
                {
                    "title": "Positive/Neutral/Negative",
                    "sortable":false,
                    "render": function(data, type, row, meta){
                        return $("<div></div>", {
                            "class": "bar-chart-bar"
                        }).append(function(){
                            var bars = [];
                            for(var i = 1; i < row.length; i++){
                                bars.push($("<div></div>",{
                                    "class": "bar " + "bar" + i
                                }).css({
                                    "width": row[i] + "%"
                                }))
                            }
                            return bars;
                        }).prop("outerHTML")
                    }
                }
        ]
    });
});

$（函数（）{
$（“#dTable”）.dataTable({
“栏目”：[
{
“标题”：“语言”
},
{
“标题”：“投票”，
“呈现”：函数（数据、类型、行、元）{
返回parseInt（第[1]行，第10行）+parseInt（第[2]行，第10行）+parseInt（第[3]行，第10行）
}
},
{
“可见”：错误
},
{
“标题”：“正面/中性/负面”，
“可排序”：false，
“呈现”：函数（数据、类型、行、元）{
返回$（“”）{
“类”：“条形图条形图”
}).append（函数（）{
var条=[]；
对于（变量i=1；i

您可以在这里找到大量示例@PorkChop感谢您的链接，但sparkline似乎没有水平堆叠条形图的选项。