如何在闪亮的应用中访问数据滑块值而不是值

Question

我是新手，我的界面如下所示，

<div class="slider warning " >
         <label >Variants</label>
                  <input type="text"  id="variantslider" class="slider-element form-control"   data-slider-value="20" data-slider-step="1" data-slider-max="20" data-slider-min="1" data-slider-orientation="vertical" data-slider-selection="before" data-slider-tooltip="hide" >
</div>

当我编写代码以访问server.R中的variantslider时，它将返回空字符串，

我使用了如下代码，

  output$greeting <- renderPrint({input$variantslider})

但是当我在UI部分中添加value参数时，它将读取该值，但是我想读取data-slider-value，如何在服务器中读取data-slider-value而不是value在闪亮的应用程序中。

任何帮助都是有意义的，

谢谢。