Проблема с добавлением символа процента после knobInput Отображение в R Shiny

Question

Я пытался добавить символ процента после отображения числа моего knobInput в приложении Shiny.

После просмотра похожих сообщений , которые решают проблему для непосредственного использования библиотеки jQueryи пытаясь следовать инструкциям на репо , я подумал, что смогу внести изменения, добавив короткий скрипт через тег.До сих пор я пробовал варианты этого в своем 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 отображается нормально, но символ процента не отображается на дисплее.Я также пытался вложить тег script в заголовочные теги, например:

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

, но это тоже не помогает.Должен ли я попробовать другой подход?Или я что-то неправильно реализую?

Answer 1

Я выполнил то же требование с roundSlider , проверьте приведенную ниже демонстрацию:

DEMO

Это может быть настраиваемо в зависимости от ваших требований, надеюсь, это поможет вам.