javascript - 在 R Shiny 中显示 knobInput 后​​添加百分比符号

Question

我一直在尝试在 Shiny 应用程序中的 knobInput 数字显示后添加一个百分比符号。

经过咨询类似posts解决了直接使用 jQuery 库并尝试按照 repo 上的说明进行操作的问题，我想我可以通过标签添加一个简短的脚本来进行更改。到目前为止，我一直在我的 UI 文件中尝试这种变体:

...
       knobInput(inputId = "population",
                         label = "Percentage of the Population",
                         min = 0,
                         max = 100, 
                         value = 100,
                         width = '100%',
                         displayPrevious = T),
             tags$script(HTML("
    $(\".dial\").knob({
      'draw' : function () 
      {
        $(this.i).val(this.cv + '%')
      }
    });")),
...

这不会导致任何问题并且 knobInput 显示正常，但显示器中没有显示百分比符号。我还尝试将脚本标签嵌套在 head 标签中，例如:

...
             tags$head(tags$script(HTML("
    $(\".dial\").knob({
      'draw' : function () 
      {
        $(this.i).val(this.cv + '%')
      }
    });"))),
...

但这也无济于事。我应该尝试不同的方法吗？还是我实现不正确？

Answer 1

我对 roundSlider 做了同样的要求，检查下面的演示:

DEMO

这可以根据您的要求进行高度定制，希望对您有所帮助。